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ABSTRACT 



Software engineers in general, and the Department of Defense in particular, are 
looking for good software metrics to aid in software development. Maurice Halstead 
developed the theory of Software Science which includes the relation between program 
complexity and program length. Halstead's length metric deals with the properties of 
an algorithm that can be measured, either directly or indirectly, statically or 
dynamically, and with the relationships among these properties. A system has been 
developed which implements Halstead's length metric. This system, which is written in 
Ada, takes Ada programs as input, and outputs the length metric complexity analysis. 
Finally, recommendations for future work in this area are made. 
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I. INTRODUCTION AND BACKGROUND 



A. CONCERNS 

With computer software programs getting larger and larger all the time, the 
search is on for accurate and dependable aids for the developer to increase the 
productivity and efficiency of software engineering efforts. New tools and new 
methodologies are being sought in the effort to alleviate the "software crisis". This 
crisis, stated specifically, is that software is being delivered late, over budget, 
specifications are not being met, modifications are difficult and expensive, unresponsive 
to user needs, and unreliable. 

Recently, it was reported that software costs are growing at the rate of 15% per 
year while productivity is increasing at less than 3% [Ref. 1: p. 15]. Barry Boehm, a 
leading computer expert, asserted more than 10 years ago that, in the military 
application area, the cost of software was expected to reach about 80% of the total 
computer system budget by the year 1985 [Ref. 2: p. 1 ]. His assertion now seems valid 
[Ref. 3]. Furthermore it appears that up to 60% of the total software budget for all 
organizations using computers is being devoted to maintenance [Ref. 2: p.2[. The 
Office of Naval Research and other Defense Research agencies are aware of these 
increasing costs. They are also accutely aware of the lack of quantitative measurement 
techniques which are desperately needed for assessing the quality and reliability of 
software as well as for the prediction and measurement of software production 
[Ref. 1: p. 14]. Further evidence of this universal concern comes from a General 
Accounting Office report of June 78 on managing weapons systems. It stated that there 
exists no Department of Defense performance criteria to measure software quality and 
to establish a basis for its acceptance or rejection [Ref. 1: p. 15]. The Secretary of 
Defense's response was brief and candid, 

We concur. We regret and underscore the importance of the need. The 
Department of Defense will quickly embrace such measures when they are 
available. 

The current Office of Naval Research (ONR) initiative to focus on software 
measurement is a result of the need for such metrics and the high level of interest that 
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the Secretary of Defense brings to bear. The ONR initiatives, stated specifically, are: 
developing indices of merit that can support quantitative comparisons and evaluations; 
designing a philosophical framework for understanding and defining software 
measurement; and focusing the attention of the scientific community on computer 
software, [Ref. 1: p. 15]. 

B. AVAILABLE METRICS 

Software metrics are often classified as either process metrics or product metrics, 
and are applied to either the development process or the software product being 
developed [Ref. 2: p. 19]. Process metrics include resource metrics, such as the 
experience of programmers, and the cost of development and maintenance. Examples 
of metrics for the levels of personnel experience are the number of years that a team 
has been using a programming language, the number of years that a programmer has 
been with the organization, the number of years that a programmer has been 
associated with a programming team, and the number of years of experience 
constructing similiar software [Ref. 2: p. 19). Other factors considered in process metric 
measurement are development techniques (the use of top-down or bottom-up 
development techniques, and structured programming), supervisory techniques (such as 
type of team organization and number of communication paths), and resources 
(human, computer, time schedule, and so on) [Ref. 2: p.20]. Product metrics, on the 
other hand, are a measure of the software product. Product metrics include the size of 
the product (such as number of lines of code or some count of tokens in the program), 
the logic structure complexity (such as flow of control, depth of nesting, or recursion), 
the data structure complexity (such as the number of variables used), the function 
(such as type of software: business, scientific, systems, and so on), and combinations of 
these [Ref. 2: p.20]. 

The emphasis in this thesis will be on product metrics to the total exclusion of 
process metric issues. We are interested in analyzing the static program, or product, in 
our effort to provide an automated tool. 

There are a variety of different quantitative software metrics in use today. In an 
important paper by Boehm [Ref. 4], an attempt is made to define software quality in 
terms of some high level characteristics such as reliability, portability, efficiency, 
human engineering, testability, understandability, and modifiability. If we can define 
these characteristics, noting that a precise subjective definition is difficult to achieve, 
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and measure these characteristics with some precision, we could strive to maximize 
each of these characteristics [Ref. 2: p.7]. There are some difficulties here. First, some 
of the characteristics are potentially contradictory. For example, improvements in 
portability and understandability usually result in decreased efficiency [Ref. 2: p.7]. 
Secondly, there are significant cost/benefit tradeoffs. For example, the cost of 
producing highly reliable code may be several times more costly, in terms of time and 
/or money, than for less reliable code [Ref. 2: p.7]. 

The measurement of software complexity is receiving increased attention in 
recent years. Complexity has been a loosely defined term but Bill Curtis defined 
complexity to be a characteristic of the software interface which influences the 
resources another system will expend or commit while interfacing with the software 
[Ref. 5]. Two separate and distinct focuses have emerged in studying software 
complexity: computational and psychological complexity [Ref. 1: p.208]. 

Computational complexity relies on the formal mathematical analysis of such problems 
as algorithm efficiency and use of machine resources. In contrast, the empirical study 
of psychological complexity has emerged from the understanding that software 
development and maintenance are largely human activities. Psychological complexity is 
concerned with the characteristics of software which affect programmer performance 
[Ref. 1: p.20S]. This thesis will focus entirely on program complexity in an effort to 
provide a representative metric from selected quantitative measures. 

There are a variety of complexity metrics available and we will briefly highlight a 
few of them. A number of metrics having a base in graph theory have been proposed 
to measure complexity from control flow [Ref. 1: p.210]. Thomas McCabe devised one 
of the better known complexity metrics in relation to the decision structure of a 
program [Ref. 6]. McCabe argues that his metric assesses the difficulty of testing a 
program, since it is a representation of the control paths that must be exercised during 
testing [Ref. 1: p.210]. Victor Basili and Robert Reiter [Ref. 7], have developed 
different counting methods for computing cvclomatic complexity by counting rules for 
case statements and compound predicates [Ref 1: p.210]. Definitive data on the most 
effective counting rules has yet to be presented. The best known and most thoroughly 
studied of the composite measures of complexity is Halstead's theory of Software 
Science [Ref. 1: p.21 1]. In 1972, Maurice Halstead argued that algorithms have 
measurable characteristics analogous to physical laws. We will focus this thesis on 
Halstead's theory as the representative metric we implement. We will first look at 
Halstead's theory. 
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C. HALSTEAD 



Halstead's software science theory applies the scientific method to the properties 
and structure of computer programs. It attempts to provide precise, objective 
measures of the complexity of existing software, which is then used to predict the 
length of the programs [Ref. 9: p.3]. Numerous statistical studies have shown very 
high correlations between the theory's predictions and actual program measures such 
as mean number of bugs [Ref. 8: p.85]. Halstead defined four basic measures: 

1. nl : The number of distinct operators appearing in a program. 

2. n2 : The number of distinct operands appearing in a program. 

3. NT : The total number of occurences of the operators in a program. 

4. N2 : The total number of occurences of the operands in a program. 

Halstead defined the size of the vocabulary to be the operators plus the operands 

as in Equation 1.1. 

n = nl + n2 (eqn 1.1) 

Halstead's theory [Ref. S: p.l 1], says that actual program length can be 
calculated by adding the total number of operand references with the total number of 
operator references as in Equation 1.2. 



N = NT + N2 (eqn 1.2) 

Halstead, using information theory, computes the theoretical length or predicted 
length as in Equation 1.3. 

N = nl * (log 2 (nl)) 4 - n2 * (log 2 (n2)) (eqn 1.3) 

Halstead also speaks of program volume as in Equation 1.4. 

V = N log 2 n (eqn 1.4) 

The intuition is simple. For each of the N T elements of a program, log, (n) bits 
must be specified to choose one of the operators or operands for that element, thus, 
volume (V) measures the number of bits required to specify a program [Ref. 8: p.l 9]. 
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Halstead also hypothesized a conservation law between the level of abstraction and the 
volume. The level is defined as the ratio of potential to actual volume where the 
potential volume is the volume of the most compact (highest-level) representation of 
the algorithm [Ref. 8: p.25]. Effort, another variable that Halstead suggests, is a 
measure of the mental effort required to create a program. He describes effort as the 
ratio of volume to program level which implies that programming difficulty increases as 
the volume of the program increases, and decreases as program level increases 
[Ref. 8: p.47]. Halstead hypothesized that programming Time (T) should be directly 
proportional to the Effort (E) in a program, as in Equation 1.5. 

T = E / S (eqn 1.5) 

The constant S represents the Speed of a programmer, i.e., the number of mental 
discriminations per second of which he. she is capable [Ref. 8: p.48j. 

We agree with Alan Perlis. that regardless of the empirical support for many of 
Halstead's predictions, the theoretical basis for his metrics needs considerable attention 
[Ref. 1: p.214], Halstead, more than other researchers, tried to integrate theory from 
both computer science and psychology. Unfortunately, some of the psychological 
assumptions underlying his work are difficult to justify for the phenomena to which he 
applied them [Ref. 1: p.214]. Perlis states, and again we agree, that computer scientists 
would do well to purge from their memories the magic number 7 4- or - 2, and the 
Stroud number of 18 mental discriminations per second. These numbers describe 
cognitive processes related to the perception or retention of simple stimuli, rather than 
the complex information processing tasks involved in programming [Ref. 1: p.214], 
Broadbent [Ref. 10], argues that for complicated tasks (such as understanding a 
program) the magic number is substantially less than seven. For the above reasons, 
this thesis will focus on the actual count of the operators and operands and will totally 
exclude any discussion about Halstead's other hypothesis. 

D. OUR METRIC 

The metric we have implemented will take, as input, an Ada program and analyze 
this program with respect to Halstead's length hypothesis. To properly carry out this 
task, the input program must be decomposed into its most basic lexical elements, and 
then parsed to ensure that the program is syntactically correct. As the structure of the 
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program is being validated the data needed for metric implementation is collected and 
stored for later analysis. We have designed a generic front-end for this metric tool 
which means other metrics can be added at a later date, thus giving the program the 
ability to be expanded and provide a wider range of data. We will cover each of these 
front-end sections in detail and describe how and why our metric operates. 
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II. DEVELOPING AN ADA GRAMMAR 



A. INTRODUCTION 

The grammar of a language specifies the syntax of the language and is used to 
help guide the translation of programs. A grammar naturally describes the hierarchial 
structure of many programming language constructs [Ref. 11: p.26]. A grammar has 
four components: 

1. A set of tokens, known as terminal symbols. 

2. A set of nonterminals. 

3. A set of productions which consists of a nonterminal, an arrow, and a 
sequence of terminals and/or nonterminals. 

4. A designation of one of the nonterminals as the start symbol. 

Grammars are classified by many characteristics, and different parsing techniques 
are more or less effective on a particular class of grammar. The most efficient methods 
of parsing, top-down and bottom-up , which we will cover in chapter four, work only 
on certain subclasses of grammars. Several of these subclasses, such as the LL and 
LR grammars, are expressive enough to describe most syntactic constructs in 
programming languages [Ref. 11: p. 1 60]. Parsers implemented by hand often work 
with LL grammars and parsers for the larger class of LR grammars are usually 
constructed by automated tools. The first L in LL stands for scanning the input 
from left-to-right, the second L for producing a leftmost derivation. Conversely the L 
in LR is again for left-to-right scanning of the input, the R for constructing a 
rightmost derivation in reverse [Ref. 11: p. 215]. A grammar that is LL(1) can be 
deterministically parsed with a top down left to right scan by using only one token 
lookahead. Therefore, an LL(1) grammar has a parsing table with no multiply-defined 
entries. If the present parsing table has multidefined entries an attempt can be made to 
transform the grammar by eliminating all left recursion and left factoring whenever 
possible [Ref. 11: p. 1 92]. There are some grammars for which no amount of alteration 
will yield an LL(1) grammar. Eliminating left recursion and then left factoring is easy 
to do but may make the resulting grammar hard to read and difficult to use for 
translation purposes. These procedures are covered in the next section. 

A grammar generates strings by beginning with the start symbol and repeatedly 
replacing a nonterminal by the right side of a production for that nonterminal. The 
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terminal strings that can be derived from the start symbol form the language defined 
by the grammar [Ref. 11: p.28]. 

B. GRAMMAR FOR THE ADA LANGUAGE 

Ada is a very large language consequently the grammar for this language is also 
very large. We chose to use a top-down, recursive-descent parser, which will be 
covered in greater detail in chapter four, as our method of analyzing our input 
program. We used the Ada language as defined in the Ada Language Reference 
Manual (LRM) [Ref. 12]. Our first step was to translate the Ada language from the 
Backus-Naur Form given in the Ada Language Reference Manual. In translating this 
grammar, which is not LL(1), into an LL(l)-like grammar, it was necessary to 
massage the language description given in the manual. Massaging is the process of 
removing all left recursion and then left factoring. Left recursion is when the leftmost 
symbol on the right side of a production is the same as the nonterminal on the left side 
of the production. Left recursion must be eliminated for this top-down, recursive 
descent parser to alleviate the possibility of infinite looping. It must be remembered, 
this process does not guarantee that the transformed language will be LL(1). However, 
we must be sure to perform transformations that lead to a grammar for the same 
language. The remainder of this chapter is devoted to the discussion and explanation 
of how we massaged the grammar. The complete grammar used by our parser can be 
found in Appendix A. Our translation key has terminal symbols as lowercase letters, 
non-terminal symbols as uppercase letters, and bold-faced symbols to indicate the 
meta-symbols of our grammar. 

Once the initial grammar is expressed in our meta-symbology, the next step is to 
remove all left recursion. Since the BNF form in the LRM showed no left recursion, it 
appeared that this step would not be required. However, there was one case of left 
recursion that was not apparent until several substitutions of the productions had been 
made. This case involved the production rules for NAME, 
INDEXED_COMPONENT, SLICE, SELECTED COMPONENT, ATTRIBUTE, and 
PREFIX. The production rules, when taken directly from the LRM, appear as the 
follows: 

NAME --> identifier 

--> character_literal 
--> string_literal 
--> INDEX_COMPONENT 
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--> SLICE 



--> SELECTED_COMPONENT 
--> ATTRIBUTE 

INDEXED_COHPONENT --> PREFIX (EXPRESSION) 

SLICE --> PREFIX (DISCRETE_RANGE ) 

SELECTED.COMPONENT --> PREFIX. SELECTOR 

ATTRIBUTE --> PREFIX' ATTRIBUTE_DESIGNATOR 

PREFIX --> NAME 

--> FUNCTION^ ALL 

When starting with NAME and substituting in the productions, the left recursion 
becomes readily apparent. For example: 

NAME --> SLICE --> PREFIX(DISCRETE_RANGE ) ==> NAME ( D I S CRETE _RANGE ) 

We see that the following production exists: 

NAME --> NAME (EXPRESSION) 

Several other productions, left recursive on NAME, can be generated using the other 
rules listed above. 

Now that left recursion does exist, we expanded out the productions listed above 
(using the same technique previously demonstrated) and combined them all as 
production rules for NAME. The production rules for INDEXED_COMPONEN'T, 
SLICE, SELECTED_COMPONENT, and ATTRIBUTE were incorporated into 
NAME so they were removed from our grammar. The final set of production rules for 
NAME can be found in Appendix A. 

The third step in massaging our grammar is left factoring. Our parser could not 
function with one token lookahead if left factoring were possible. Left factoring is a 
grammar transformation which uses the basic idea that if it is not clear which of two 
alternative productions to use to expand a nonterminal, it may be possible to rewrite 
the productions to defer the decision until we have enough of the input to make the 
correct decision. To demonstrate this procedure, we will show the left factoring used 
on the productions for RELATION. Taken directly from the LRM the production 
rules for RELATION are as follows: 
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RELATION --> SIMPLE_EXPRESSION 

--> SIMPLE_EXPRESSION RELATIONAL_OPERATOR SIMPLE_EXPRESSION 

--> SIMPLE EXPRESSION in RANGES 

--> SIMPLE_EXPRESSION not in RANGES 

--> SIMPLE_EXPRESSION in TYPE_MARK 

--> SIMPLE_EXPRESSION not in TYPE_MARK 

Applying the rule of left factoring, a new nonterminal. 
SIMPLE_EXPRESSION_TAIL. has been added to the grammar. The production 
ruies for RELATION and SIMPLE_EXPRESSION_TAIL now look like the 
following: 

RELATION --> SIMPLE_EXPRESSION SIMPLE_EXPRESSION_TAIL 

S I MP L E _E X? RE S S I ON_T A I L --> RELATIONAL_OPERATOR SIMPLE_EXPRESSION 

--> in RANGES 
--> not in RANGES 
--> in TYPEJ-IARK 
--> not in TYPE_MARK 

Finally, in attempting to make our grammar LL(1) it was necessary to combine 
several similar constructs together so that it could be parsed by one function of the 
parser. For example, the reserved word package appears in several instances including 
a package specification, a package body declaration, a separate package body 
declaration, a generic instantiation of a package, and the renaming of a package. In 
each of these examples the reserved word package is used, and even with the ablility to 
look ahead one token, it is impossible to tell which form of the package construct is 
being utilized. We massaged our grammar so that if package is encountered the 
function PACKAGE_DECLARAT10X is called. The function 
PACKAGE_DECLARATION first checks for the reserved word body, indicating a 
package body declaration, or a separate package body declaration. 
PACKAGE_DECLARATION then checks for an identifier, indicating a package 
specification, a generic instantiation, or a renaming declaration. If body is present 
then the function PACKAGE_BODY is called. If an identifier is present then the 
function PACKAGE_UNIT is called. This technique of decision making based on 
reserved word or terminal symbol presence is extended into the functions 
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PACKAGE_BODY and PACKAGE_UNIT to further decide which form of package is 
being utilized. In essence, we have expanded the production rules to allow each new 
production the ability to correctly determine, with one token lookahead, what the next 
production rule will be. This entire process is also used for the different versions of 
procedures, functions, and tasks which can appear in an Ada program. 
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III. LEXICAL ANALYZER 



A. INTRODUCTION 

Ada is an extremely large language, comparable in size to PL1. It was developed 
on behalf of the Department of Defense for use in embedded systems [Ref. 13: p.xi). 
Based on Pascal. Ada is the first practical language to bring together important 
features such as data abstraction, multitasking, exception handling, encapsulation and 
generics [Ref. 13: p.xi]. Our design approach utilizes a division of labor and we 
separate our metric into phases which perform a single, specific function. The first two 
phases, lexical analysis and parsing, combine to form a generic front-end machine. 
This front-end machine constructs an intermediate representation of the source 
program. The information necessary to implement the metric is then collected and 
analyzed from the intermediate form. We will look, in depth, at the lexical analyzer 
and identify how it operates and why it is necessary. 

B. TOKENS 

Lexical Analysis, often called linear analysis or scanning, is when a stream of 
characters making up the source program is read from left-to-right and grouped into 
tokens, which are sequences of characters having a collective meaning [Ref. 11: p. 4], 
The character sequence forming a token, with the legal characters as described in 
[Ref. 12: p.2-1], is called the lexeme for the token. This lexeme is what is used to 
identify the actual operators and operands that serve as the input for our metric. All 
variables will have a lexeme, such as sqrt, rate, answer, and so on. There are seven 
token classes in the Ada language. They are identifiers, separators, numeric literals, 
delimiters, comments, character literals, and string literals. The lexical analyzer takes 
the source program one character at a time, and builds the token lexeme as it 
determines the token class. Each token is generated by a finite state automaton. A 
finite state automaton, often called a finite state machine, is a mathematical model for 
a device that is capable of recognizing strings of characters defined by a certain class of 
grammars, called regular grammars. Our scanner, or lexical analyzer, can be in any 
one of a finite number of internal configurations or states [Ref. 14: p. 1 3]. The state of 
the system summarizes the information concerning past inputs that is needed to 
determine the behavior of the system on subsequent inputs. The lexical analyzer scans 
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the symbols of a computer program to locate the strings of characters corresponding to 
one of the seven token types mentioned earlier. In this process the lexical analyzer 
needs to remember only a finite amount of information, such as how long a prefix of a 
reserved word it has seen since startup [Ref. !4: p. 14], 

We will now address these tokens individually and discuss not only their purpose 
and content but also the finite state machines we programmed to handle their 
recognition. 

1. Identifiers 




Figure 3.1 Finite State Machine for Identifiers. 

Identifiers are used as names and also as reserved words [Ref. 12: p.2-4). An 
identifier must start with a letter and it can then be any combination of letters, digits 
or the underscore character (_). There cannot be two underscore characters side by 
side in the identifier and there is no maximum length specified for any identifier. 
Identifiers differing only in the use of corresponding upper and lower case letters are 
considered as the same [Ref. 12: p.2-4]. The finite state machine we programmed to 
identify and store token identifiers is seen in Figure 3.1. 

2. String Literal 

A string literal is formed by a sequence of zero or more graphic characters 
enclosed between two quotation characters ('') used as string brackets [Ref. 12: p.2-6). 
A string literal has a value that is a sequence of character values corresponding to the 
graphic characters of the string literal apart from the quotation character itself 
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S-START 
SL- STRING LITERAL 



GRAPHIC CHARACTER 




L 



Figure 3.2 Finite State Machine for String Literals. 

[Ref. i2: p.2-6|. If a quotation character value is to be represented in the sequence of 
character values, then a pair of adjacent quotation characters must be written at the 
corresponding place within the string literal. The length of a string literal is the 
number of character values in the sequence represented, except for doubled quotation 
characters which are counted as a single character (Ref. 12: p.2-6|. A string literal must 
lit on one line since it is a lexical element but longer sequences of graphic characters 
can be obtained by catenation of string literals (Ref. 12: p.2-7|. Except for the instance 
of doubled quotation characters, the finite state machine we programmed to identify 
and store token siring literals can be seen in Figure 3.2. 

3. Character Literals 



S-START 

CL-CHARACTER LITERAL 




Figure 3.3 Finite State Machine for Character Literals. 
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A character literal is formed by enclosing one of the 95 graphic characters 
(including the space), which arc described in [Ref. 12: p.2-1], between two apostrophe 
characters ('). A character literal has a value that belongs to a character type. The 
finite state machine we created to identify and store token character literals can be 
seen in Figure 3.3. 

4. Comments 



GRAPHIC CHARACTER UME FEED 



^ ^ (DASH) ^ .r ^ X 

O^^O^OrCT' © 



S-ST ART 
COM-COMMENT 



CARRIAGE RETURN 



Figure 3.4 Finite State Machine for Comments. 

A comment starts with two adjacent hyphens and extends up to the end of the 
line. A comment can appear on any line of a program [Ref. 12: p.2-7). The presence 
or absence of comments has no inlluence on whether a program is legal or illegal. 
Furthermore, comments do not influence the elTeet of a program. The sole purpose of 
comments is to provide clarity and explanation to the human reader. The horizontal 
tabulation can be used in comments, after the double hyphen, and is equivalent to one 
or more spaces [Ref. 12: p.2-7]. The finite state machine we programmed to identify 
and store token comments can be seen in Figure 3.4. 

5. Separators 

In certain cases an explicit separator is required to separate adjacent lexical 
elements (namely, without separation, interpretation as a single lexical element is 
possible) [Ref. 12: p.2-3|. A separator is any of a space character, a format ellector 
(such as horizontal tabulation, vertical tabulation, carriage return, line feed, and form 
feed), or the end of a line [Ref. 12: p.2-3]. A space character is a separator except 
within a comment, a string literal, or a space character literal. The horizontal 
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S-START 

SEP-SfPERATOR 



Figure 3.5 Finite StatcMachine for Separators. 

tabulation is not a separator within a comment. One or more separators are allowed 
between any two adjacent lexical elements (tokens), and at least one separator is 
required between an identifier or a numeric literal and an adjacent identifier or numeric 
literal. The finite state machine we programmed to identify and store token separators 
is seen in 1 igure 3.5. 

6. Delimiters 




Figure 3.6 Finite State Machine for Delimiters. 



A simple delimiter is either one of the following special characters (in the basic 
character set): 

&'()* + ,./;< = > I : 
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A compound delimiter is one of the following, each composed of two adjacent 
special characters 

_> ** i = > = <= > > << < > 

Any other combination of adjacent special characters is not a legal compound 
delimiter. The finite state machine we programmed for identifying and storing token 
delimiters is seen in Figure 3.6. 

7. Numeric Literal 

The numeric literal is by far the most complex and varied type of token. It 
encompasses real numbers, integer numbers, and based numbers which are numeric 
literals expressed in an explicitly specified base between 2 and 16 [Ref. 12: 2-5'j.'p. A 
real number is a number with a decimal point, an integer is a number without a point 
and a based literal is, again, a number whose base is explicitly stated. An underline 
character (_) inserted between adjacent digits of a numeric literal does not affect the 
value of this numeric literal. The only letters allowed as extended digits are the letters 
A through F, which stand for the digits ten through fifteen in hexidectmal. A letter in 
a based number can be written either in lower case or in upper case, with the same 
meaning [Ref. 12: p.2-5j. Leading zeros are allowed. No space is allowed in a numeric 
literal, not even between constituents of the exponent, since a space is a separator. A 
zero exponent is allowed for an integer literal. The finite state machine we 
programmed to identify and store token numeric literals can be seen in Figure 3.7. 

C. TOKEN USE 

As was seen in Chapter II, a grammar is made up of terminals, non-terminals, a 
start symbol, and productions. The terminals are the basic symbols from which strings 
are formed. These strings are the combinations of the most basic symbols, tokens , 
which form meaningful expressions to a particular language. To be able to analyze 
these strings and determine whether or not a given string is a legal statement in any 
given language we must first identify each token as it is entered by the program. 
Identification of the tokens permits the computer to compact the incoming data thus 
allowing the saving of space. For example, if someone placed ten blanks in an input 
program where only one w r as needed, lexical analysis w r ould see the separator and flush 
the other unused blanks, thus saving space. Certain tokens will be augmented by a 
lexical value. For example, when an identifier like rate is found, the lexical analyzer 
not only generates a token, say id, but also enters the lexeme rate into the symbol 
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DIGIT 



» or : 








\ u ' ) 


i 

DIGIT 


* 


UNDERSCORE 


DIGIT 


i PERIOD 





c 




S-START 

UI-UNIVERSAL 

INTEGER 

BI-BASED INTEGER 
UE-UNIVERSAL 
EXPONENT 
UR-UNIVERSAL 
REAL 



or : 



Figure 3.7 Finite State Machine for Numeric Literals. 
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table, if it is not already there [Ref. 11: p. 1 2]. The lexical value associated with this 
occurence of id points to the symbol-table entry for id. The construction of these 
tokens is done by reading one character at a time and building the lexeme of the token 
by appending the appropriate characters together. This translation from the input 
program to a simple stream of tokens is the sole job of the lexical analyzer. In the 
next chapter we will look at the system parser and its functions. 
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IV. PARSER 



A. INTRODUCTION 

The parser, which is the second component of our front-end machine, is the 
mainstay of our metric. Parsing is also called hierarchical analysis or syntax analysis. 
It involves grouping the tokens, created by the lexical analyzer, of the source program 
into grammatical phrases that are used to synthesize output [Ref. 11: p.6]. A parser 
can be constructed for any context-free grammar. The important factor in parsing is 
speed. Given a programming language, we can generally construct a grammar that can 
be parsed quickly. Most programming language parsers make a single left-to-right 
scan over the input, looking ahead one token at a time [Ref. 11: p.41]. In discussing 
this parsing problem, it is helpful to think of a parse tree being constructed, even 
though our front-end machine does not actually construct a tree. A parse tree 
describes the syntactic structure of the input. It pictorially shows how the start symbol 
of a grammar derives a string in the language [Ref. IT. p.29|. Formally, given a 
context-free grammar, a parse tree is a tree with the following properties: 

1. The root is labeled by the start symbol. 

2. Each leaf is labeled by a token or empty string. 

3. Each interior node is labeled by a nonterminal. 

The leaves of a parse tree, read from left to right, form the yield of a tree, which 
is the string generated or derived from the nonterminal at the root of the parse tree 
[Ref. 11: p.29]. The term, context-free grammar, which is mentioned earlier, defines a 
finite set of variables (also called nonterminals or syntactic categories), each of which 
represents a language [Ref. 14: p.77]. A context-free grammar is denoted G = 
(V,T,P,S), where V and T are finite sets of variables and terminals respectively 
[Ref. 14: p.79]. P is a finite set of productions; each production (A = > W) is of the 
form A produces IV where A is a variable and W is a string of symbols from any 
combination of (V union T). Finally, S is the start symbol. It must be noted though 
that although our front-end machine is capable of constructing a parse tree (otherwise 
the translation would not be guaranteed correct) the actual tree is not necessary for 
our metric purposes and is therefore not built. 
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Most parsing methods fall into one of two classes, top-down and bottom-up 
methods [Ref. 11: p.41]. These terms refer to the order in which nodes in the parse 
tree, if the tree actually existed, were constructed. In the top-down method, 
construction starts at the root and proceeds towards the leaves going deeper and 
deeper until eventually reaching the bottom. In the bottom-up method it is just the 
opposite. Construction starts at the bottom and proceeds towards the root. The 
popularity of top-down parsers is due to the fact that efficient parsers can be 
constructed more easily by hand using top-down methods [Ref. 11: p.41], Bottom-up 
parsing, however, can handle a larger class of grammars and translation schemes, so 
software tools for generating parsers directly from grammars have tended to use 
bottom-up methods [Ref. 11: p.41]. Because of its efficiency and ease of use, we have 
chosen to use the top-down method of parsing for the front-end machine of our metric. 
Furthermore, we chose a particular type of top-down parsing called recursive-descent. 
This technique, a classical method often used in industry, is very’ powerful. We 
describe its operation in the following section. 

B. TOP-DOWN RECURSIVE DESCENT PARSING 

Recursive-descent parsing is a top-down method of syntax analysis in which we 
execute a set of recursive procedures to process the input [Ref. 11: p.44], A function is 
associated with each nonterminal of a grammar. We now consider a special form of 
recursive-descent parsing, called predictive parsing, in which the token symbol 
unambiguously determines the function selected for each nonterminal [Ref. 11: p.44]. 
The sequence of functions called in processing the input implicitly defines a parse tree 
for the input. 

Our procedure GET_CURRENT_TOKEN_RECORD builds an array of fifty- 
tokens and, starting at the initial position controls a pointer which identifies the 
current token being parsed and another pointer which identifies the next or lookahead 
token to be parsed. The function BYPASS is the central control and workhorse for 
our parser. It compares the current token with predefined terminals. If there is a 
token-to-terminal match, BYPASS consumes the token by adjusting the index pointers. 
All of the terminal symbols in the Ada language are defined and any nonterminal is, as 
was stated earlier, a function call that returns a boolean value of true or false. 

Parsing begins with a call for the starting nonterminal, which is COMPILATION 
in the Ada grammar. Parsing progresses as each function calls other functions, 
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descending into the parse structure until a call to BYPASS is performed and the 
appropriate boolean value is returned. This process of ascending and descending the 
parse structure continues until all the tokens created from the input file have been 
consumed or an error occurs. 

We made an attempt to design the parser to be as robust as possible. However, 
due to the complexity of the language we were often forced to rely on the fact that the 
input file had been correctly compiled before being fed into our parser. The fact that 
the input file was precompiled allowed us to drop the italicized element of the 
nonterminals in the grammar. Some examples of this modification are: 

1. A parser for a compiler would normallv have to remember the type associated 

with NAME each time it was encountered, in our case we simpiV dropped the 
tvoe requirement and parsed all of them with the function MAMET. ' For example, 
ail of the following are reduced to just NAME: TYPE_NAME t VARIABLE_NAME, 

PROCEDURE_NAME , ~ FUNCTION_NAME , EMTRY_NAME , and this list is far from 
complete. 

2. Another example occured when we dropped the italicized element of the 

nonterminal EXPRESSION. Since the tvpe had been checked bv a full compiler, 
for our parser the following three nonterminals became simplv EXPRESSION: 
UNIVSRSAL_STATIC_EXPRESSlON f OUALIFIED_EXPRESSlON . and 

300LEAN_EXPRESSI0N. i he following two nonterminals became 
S I HP LE _S XP RE S S I ON for the same reasons: ~ STATIC SIHPLE.EXPRESSION, and 
0ELAY_S IMP LS_E XPRE S 5 1 ON . 

3. Our third example is that bv dropping the italicized element of 
DISCRETE SU3TYPE_INDICATI0N and COMPONEHT_SUBTYPE_INDICATIOM . thev 
can both oe correctly parsed by SUBTY?E_INDICATION. 

The changes highlighted above, and others that are not shown, were done to 
reduce the size and complexity of the parser. Having to retain all the type information 
would have required a much more extensive parsing element. This reduction allows 
our parser to be more efficient in its operation. We did not intend for our front-end 
machine to be a full compiler. We only needed to parse an input file in enough detail 
to be able to collect the meaningful and relevant metric data. 
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V. ADAMEASURE 



A. INTRODUCTION 

As was seen in the first chapter of our thesis there is a variety of different metric 
theories. By request of the Missile Software Branch, Naval Weapons Center, China 
Lake, we implemented the Halstead Software Science Metric. In the effort to provide 
as much information about the input program as possible, we also provide information 
on comments and nesting. We felt it was important to avoid trying to generate a 
single number, say betweeen one and ten, which would be an attempt to quantify the 
given metric information into a single numeric statement. Instead we generate a few 
important numbers, then we apply some reasoning to what we believe these numbers 
mean in relation to program complexity and overall software quality. We stress what 
the program says about the software is merely suggestive. 

B. DATA COLLECTION 

In explaining the how and why of our data gathering, we will deal with each of 
the three types of information analysis separately. 

1. Halstead Data 

As stated in chapter one, we only implemented the program length metric 
from Halstead's software science theory. We gathered the operator data through our 
workhorse function BYPASS which counted every token-to-operator terminal match. 
To acquire the operand data we generated a symbol table of all identifiers, be they 
variables, procedures, functions, tasks, blocks, or numeric constants. Once this was 
completed we now had the four Halstead parameters nl, n2, NT, and N2. Having 
calculated the theoretical length and actual length we divided both of these numbers 
by total lines input to allow comparisons of results from programs of different size. 

If the actual length is greater than the theoretical length Halstead 
hypothesized that the difference is caused by one or more of the following six classes of 
impurities. 

• Cancelling : The occurence of an inverse cancels the effect of a 

P revious operator; no other use of the variable changed 
y the operator is made before the cancellation. 

• Ambiguous operands ; The same operand is used to represent two or more 

variables in an algorithm. 
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• Synonymous operands : Two or more operand names represent the same 

variable. 

• Common subexpressions : The same subexpression occurs more than once. 

• Unnecessary replacements : A subexpression is assisned to a temporary variable 

which is used only once. 

• Unfactored expressions : There are repetitions of operators and operands 

among unfactored terms in an expression. 

If the theoretical length is greater than the actual length then the following 
conditions could exist: 

• Operands : There may be some variables which were declared but never 

referenced in 'the program. 

• Globals : A larse number of the variables referenced were declared in the 

packages instantiated by the WITH statement. 

2. Comment Data 

As the input file is parsed, a count is kept of the comment lines. Upon 
completion of parsing the number of comment lines is divided by the total lines input, 
then multiplied by one-hundred to yield the overall comment percentage. On the basis 
of this percentage we make recommendations, that might prove helpful to the software 
engineer. Briefly, we consider a comment percentage between zero and fifteen percent 
as low and we state that unless the program utilizes Ada's extensive variable 
identification ability then there may be too few comments for adequate reader 
comprehension. We consider a comment percentage between fifteen and fifty as a 
reasonable number and state that this could give the reader a good understanding of 
the program. A comment percentage between fifty and eighty-five percent is 
considered fairly high and we state that the program has good understandability but 
runs a small risk of obscuring the code. Uastly, a comment percentage between eighty- 
five and one-hundred percent is an extremely high percentage and we say that the 
program has a higher possibility of obscuring the code in the high number of 
comments. 

3. Nesting Data 

Determining a program's complexity is not an easy thing but it is generally 
accepted that as the nesting level increases so goes the complexity level. We have 
implemented a nesting level summary which counts how frequently a given nesting 
level was reached, maintains a record for each level, and keeps track of the maximum 
level used and where it was first encountered. 
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VI. CONCLUSIONS 



A. METRICS 

The Department of Defense's interest in metrics provides a powerful motivation 
for the continued research into possible metric tools. The software crisis is severe 
enough to warrant tools, aids, just any bit of information that will improve the 
software engineering process. Computer Science is such an infant in the world of 
academia and metrics is such a very smail part of this child that we are aware of the 
difficulty in finding breakthroughs. The computer scientists may have tried to "catch- 
up" with the other sciences much too rapidly, consequently they may have missed 
laying some of the necessary foundations. 

Our initial eifort is a good start, a baseiine from which future eiforts can build 
upon. Ada.Vleasure is a helpful tool for providing the software engineer with the 
information that is presently gathered by hand. We do not feel software metrics should 
simply attempt putting a number onto a program in the effort to quantify its quaiity. 
Text describing what the metric has seen and how it relates to the programmer and the 
program is what is really needed for the output. It is this bridging from the concrete 
world of the metric to the abstruse, metaphysical environment of the actual software 
that presents the real challenge. As we collect and analyze the data, we bridge this gap 
by providing recommendations to the user on how we see the interrelationship of these 
two entities. These recommendations are based on currently accepted software 
practices. 

B. IMPLEMENTATION 

In our effort to make the Ada grammar more LL(l)-like we were forced to 
perform extensive massaging. This massaging allowed us to use the top-dowm, 
recursive-descent parsing technique. This classical, time tested method proved to be 
easily implemented and debugged. The extensive massaging made it necessary for us to 
frequently check and reaffirm that the language generated by our newly transformed 
grammar was exactly the same as the initial language. This point cannot be 
overstated. The languages must be identical. Because of the complexity involved in 
massaging and checking the grammar, we feel we have some insight into how 
languages are created, how they build upon themselves, and where languages are going 
in the future. 
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When we originally accepted the proposal for creating a metric, we were not 
aware of how complex and time consuming the implementation of the front-end 
machine would be. This complextiy, coupled with the fact that Ada is a brand new 
language and relatively unknown other than by name, made it a struggle until we had 
significantly progressed along the learning curve. We found the Ada compiler, which is 
currently a state-of-practice compiler, to be extremely slow r in comparison to the 
compilers we were familiar with such as Pascal or Fortran. The Naval Postgraduate 
School has no Ada compiler so we were forced to work over Arpanet or Telnet for the 
actual programming. This presented problems and delays on a regular basis. The 
expiration of access card numbers, the malfunctioning of the bridge box. the networks 
going down, the slow baud rate between stations, and machine downtime at NWC 
China Lake, both scheduled and nonscheduled, made information transfer a real hurdle 
in the overall effort. 

C. THE FUTURE 

Having designed a generic metric tool, we hope the program will be expanded 
and improved. There is already a plan in progress to have Sallie Henry and Dennis 
Kafura's Complexity Flow Metric implemented. There is a real need for user interface 
improvements. Because of the limited hardware options available to us, we have 
programmed our interface to deal with the VT-100 terminal. To make the system more 
robust and transportable, an interface scheme that would be functional from a variety 
of different terminals would be a useful endeavor. 

This metric was undertaken at the request of NWC China Lake and all of our 
efforts have been guided by their input to us. Pragmas, which are used to convey 
information to the compiler, are currently being used in run-time systems only at China 
Lake and although they are in the Ada grammar we have not implemented them in our 
metric. It would greatly increase the value of the program if the pragma portion of the 
grammar were implemented. The Software Missile Branch of NWC China Lake has 
provided all the Ada programs at their disposal to help us test our metric for proper 
parsing. We have successfully tested our metric on all these files and we have 
successfully tested our own code by feeding our metric into itself. Although our tests 
have been successful we have not tested all of our code. There is a particular need for 
programs that will test our metric in the area of tasking and all the code that is 
associated with it. This testing effort should be carried our as soon as possible. 
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Metrics are important. We hope that our initial work will be expanded and put 
to real use as a aid to the software engineer. Although Ada is new and relatively 
unexplored as a language, we feel it will begin to build and become more popular. We 
hope our metric adds to this building process. 
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APPENDIX A 

MODIFIED ADA GRAMMAR 



Our translation key has terminal symbols as lowercase letters, nonterminal 
symbols as uppercase letters, and bold-faced symbols to indicate the meta-symbols of 
our grammar. 

(9.10) (parserS) 

ABORT_STATEMENT — > NAME [ , NAME] 

(9.5) (parserl) 

ACCEPT_STATEMENT — > identifier [ (EXPRESSION) ?] [ FORMAL_PART ?] 

[ do SEQUENCE_OF_STATEMENTS end [ identifier ?] ?] > 

(4.3) (parser3) 

AGGREGATE — > ( C0MP0NENT_ASS0CIATI0N [ , COMPONENT_ASSOCIATION] ) 

(4.8) (parser3) 

ALLOCATOR --> SUBTYPE_INDICATION [ 'AGGREGATE ?] 

(3.6) (parser3) 

ARRAY_TYPE_DEFINITION — > ( INDEX_CONSTRAINT of SUBTYPE_INDICATION 



(5.2) (parser2) 

ASSIGNMENT_OR_PROCEDURE_CALL — > NAME := EXPRESSION > 

— > name > 



(4.1.4) (parser3) 
ATTRIBUTE_DESIGNATOR --> 
— > 

— > 



identifier [ (EXPRESSION) ?] 
range [ (EXPRESSION) ?1 
digits [ (EXPRESSION) ?] 
delta [ (EXPRESSION) ?] 



(3.1) (parserl) 
BASIC_DECLARATION --> 
— > 
— > 
— > 
— > 

— > 
— > 



type TYPE_DECLARATION 
subtype SUBTYPE ^DECLARATION 
procedure PROCEDUREJJNIT 
function FUNCTION_UNIT 
package PACKAGE_DECLARATION 
generic GENERIC_DECLARATION 
IDENTIFIER_DECLARATION 
task TASK.DECLARATION 



(3.9) (parserl) 
BASIC_DECLARATIVE_ITEM — > 



--> 



BASIC_DECLARATION 
RE PRESENTATIONS LAUSE 
use HITH_OR_USE_CLAUSE 



(10.1) (parserO) 

BASIC_UNIT — > LIBRARY.UNIT 

~> SECONDARY.UNIT 



(4.5) (parser4) 

BINARY_ADDING_OPERATOR --> + 

— > 

--> & 

(5.6) (parserl) 

BLOCK_STATEMENT --> [ identifier : ?] [ declare DECLARATIVE_PART ?] begin 

SEQUE NC E_0 F_ST ATEMENTS [ exception [ EXCEPTION_HANDLER] ?] ?] 
end [ identifier ?] > 



34 



(5.4) (parserl) 

CASE.ST ATEMENT --> EXPRESSION is [ CASE.STATEMENT.ALTERNATIVE] end case j 
(5.4) (parserl) 

CASE_STATEMENT_ALTERNATIVE — > when CHOICE [ I CHOICE] => SEQUENCE.OF.STATEMENTS 
(3.7.3) (parser3) 

CHOICE — > EXPRESSION [ . .SIMPLE.EXPRESSION ?] 

— > EXPRESSION [ CONSTRAINT ?] 

— > others 



(10.1) (parserO) 

COMPILATION --> [ COMPILATION. UNIT] 

(10.1) ( parserO ) 

COMP I L AT I ON JJNIT — > CONTEXT.CLAUSE 3ASICJJNIT 
(4.3) (parserS) 

COMPONENT. ASSOC I ATI ON — > f CHOICE [ I CHOICE]"* => ?] EXPRESSION 
(3.7) (parser2) 

COMPONENT.OECLARATION — > IDENTIFIER.LIST : SUBTYPE.INDICATION [ := EXPRESSION ?] i 



(3.7) ( parser2 ) 

COMPONENT .LIST — > [ COMPONENT.OECLARATION] f VARIANT.? ART ?] 
— > null y 



(5.1) (parserl) 
COMPOL’ND_ST ATEMENT — > 

— > 

— > 
— > 
— > 



if IF_3T ATEMENT 
case CASE_ST ATEMENT 
LOOP _ST ATEMENT 
3LOCK_ST ATEMENT 
accept ACCEPT_ STATEMENT 
select SELECT_ST ATEMENT 



(3.2) (parser2) 
CONST ANT_TERM — > 



— > 



array CONSTRAINED_ARRAY_DEFINITION 

:= EXPRESSION 

NAME IDENTIFIER_TAIL 



:= EXPRESSION ?] j 



(3.3.2) (parser3) 

CONSTRAINT — > range RANGES 

— > digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
— > delta FLOATING_OR_FIXED_POINT_CONSTRAINT 
— > ( INDEX.CONSTRAINT 



(10.1.1) (parserl) 

CONTEXT.CLAUSE — > [ with WITH.OR.USE.CLAUSE [ use HITH.OR.USE.CLAUSE] ] 

(3.9) (parserl) 

DECLARATIVE.PART — > [ BASIC.DECLARATIVE.ITEM] [ LATER.DECLARATIVE.ITEM] 
(9.6) ( parser3 ) 

DELAY_STATEMENT — > SIMPLE.EXPRESSION y 

(6.1) (parser2) 

DESIGNATOR — > identifier 

— > string_li teral 



(3.6) (parser3) 

DISCRETE.RANGE — > RANGES [ CONSTRAINT ?] 

(3.7.1) (parser2) 

DISCRIMINANT.PART — > ( DISCRIMINANT.SPECIFICATION [ i DISCRIMINANT.SPECIFICATION] ) 

(3.7.1) (parser2) 

DISCRIMINANT.SPECIFICATION — > IDENTIFIER.LIST : NAME [ := EXPRESSION ?] 
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(9.5) ( parser2 ) 

ENT RY_DECLARATION — > entry identifier [ ( OISCRETE_RANGE ) ?] [ FORMAL_PART ?] > 

(3.5.1) (parser^) 

ENUMERATION_LITERAL — > identifier 

— > character_literal 



(3.5.1) (parser4) 

ENUMERATIQN_TYPE_DEFINITION — > ( ENUMERATION_LITERAL [ , ENUMERATION. LITERAL] ) 

(11.1) ( parser2 ) 

EXCEPT ION_CHOICE — > identifier 
— > others 

(11.2) ( parserl ) 

EXCEPTION_HANDLER — > when EXCEPTION_CHOICE [ I EXCEPTION.CHOICS) 

=> SEQUENCE_OF_ST ATEMENTS 

(8.5) ( parser2 ) 

EXCEPTION.! AIL ~ > > 

— > renames NAME > 

(5.7) ( parser3 ) 

EXIT_STATEMENT — > [ NAME ?] [ when EXPRESSION ?] s 

(4.4) (parserS) 

EXPRESSION — > RELATION RELATIONS AIL 

(4.4) f parser3 ) 

FACTOR — > PRIMARY [ ** PRIMARY ?] 

— > aos PRIMARY 
— > not PRIMARY 



(3.5.7) (parser3) 

FLOATING.QR.FIXED.POINT.CONSTRAINT — > SIMPLE.EXPRESSION [ range RANGES ?] 

(6.4) (parser4) 

FORMAL_PARAMETER — > identifier => 

(6.1) (parser2) 

FORMAL.PART — > < PARAMETER_SPECIFICATION [ > PARAMETER.SPECIFICATIOn] ) 

(6.1) ( parserl ) 

FUNCT ION_BOD Y — > is [ FUNCTION_BODY_TAI L ?] 

— > i 

(6.1) (parserl) 



FUNCTION_BODY_TAIL 


— > 


separate j 




— > 


<> > 




— > 


SUBPROGRAM.BODY 




— > 


NAME J 



(6.1) (parserl) 

FUNCT ION.UNIT — > DESIGNATOR FUNCTION.UNIT.TAIL 

(6.1) ( parserl ) 

FUNCTION_UNIT_T AIL — > is new NAME [ GENERIC_ACTUAL_PART ?] > 

— > [ FORMA L_PART ?] return NAME FUNCTION_BODY 

(12.1) ( parser2 ) 

GENERIC_ACTUAL_PART — > ( GENERIC_ASSOCIATION [ , GENERIC_ASSOCIATION] ) 

(12.1) ( parser2 ) 

GENERIC_ASSOCIATION — > [ GENERIC_FORMA L_PARAMETER ?] EXPRESSION 

(12.1) ( parserl ) 

GENERIC_DECLARATION --> [ GENERIC_PARAMETER_DECLA RATION ?] GENE RIC_FORMAL_P ART 
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(12.1) (parser2) 

GENERIC_FORMAL_PARAMETER — > identifier => 

— > string_li teral => 



(12.1) ( parserl ) 
GENERIC_FORMAL_PART — > 
— > 
— > 



procedure PROCEDUREJJNIT 
function FUNCTIONJJNIT 
package PACKAGE_DECLARATION 



(12.1) (parserl) 

GENERIC_PARAMETER_OECLARATION — > 

— > 

— > 

— > 
— > 



IOENTIFIERJ-IST : [ MODE ?] NAME \ := EXPRESSION ?] \ 
type private [ DISCRIMINANT_PART 7] is 
PRIVATE_TYPE DECLARATION > 
type private [ DISCRIMINANT_PART ?] is 
GENERIC_TYPE_DEFINITION •> 
with procedure PROCEDURE_UNIT 
with function FUNCTION_UNIT 



(12.1) (parser2) 
GENERIC_TYPE_DEFINITION — > 

— > 
— > 
— > 
— > 
— > 



( <> ) 
range <> 
digits <> 
delta <> 

array ARRAY_TYPE_DEFINITION 
access SUBTYPE_DEFINITION 



(5.9) ( parser3 ) 

GOT 0_ST ATEMENT — > NAME y 



(3.2) ( parser2 ) 

IDENTIFIER_DECLARATION — > IDENTIFIER.LIST s IDENTIFIER_DECLARATICN_TAIL 



(3.2) ( parser 2 ) 

IDENTIFIER_DECLARATION_TAIL — > 

— > 
— > 

— > 



exception EXCEPTION_TAIL 
constant CONST ANT_TERM 
array CONSTRAINED ARRAY_DEFINITION 
[ := EXPRESSION ?]~ j 
NAME IDENTIFIER_TAIL 



(3.2) (parser2) 

IDENTIFIER_LIST — > identifier [ , identifier] 

(3.2) (parser2) 

IDENTIFIER_TAIL — > [ CONSTRAINT ?]\ := EXPRESSION ?] } 
— > [ renames NAME 7j > 



(5.3) (parserl) 

I F_ST ATEMENT — > EXPRESSION then SEQUENCE_0 F_STATEMENTS 

[ els if EXPRESSION then SEQUENCE_OF_ST ATEMENTS] [ else 
SEQUENCE_OF_STATEMENTS ?] end if } 



(3.6) (parser3) 

INDEX_CONSTRAINT --> DISCRETE_RANGE [ , DISCRETE_RANGE] ) 



(3.5.^) (parser3) 

INTEGER_TYPE_DEFINITION — > range RANGES 
(5.5) ( parser3 ) 

ITERATION_SCHEME — > while EXPRESSION 

--> for L00P_PARAMETER_SPECIFICATI0N 



(5.1) (parser2) 

LABEL — > << identifier >> 



(3.9) (parserl) 
LATER_DECLARATIVE_ITEM — > 

— > 
— > 



PROPER_BODY 

generic GENERIC_DECLARATION 
use WITH_OR_USE_CLAUSE 
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(4.1) ( parser3 ) 
LEFT_PAREN_NAME_TAIL — > 



[ FORMAL_PARAMETER ?] EXPRESSION [ ..EXPRESSION?] 

[ , [ FORMALPARAMETER ?] [ , EXPRESSION [ ..EXPRESSION ?]] ) [ 

name_tail] 

OISCRETE.RANGE ) [ NAME.TAIL] 



(10.1) (parserO) 
LIBRARYJJNIT — > 

— > 
— > 
— > 



procedure PROCEDUREJJNIT 
-function FUNCTION_UNIT 
package PACKAGE_DECLARATION 
generic GENERIC J3ECLARATI0N 



(10.1) (parserO) 
LIBRARYJJNIT_300Y --> 
— > 
— > 
— > 



procedure PROCEDUREJJNIT 
function FUNCTIONJJNIT 
package PACKAGE.DECLARATION 
generic GENERIC JDECLARATION 



(5.5) (parserS) 

LOOP_PARAMETER_SPECIFICATION --> identifier in [ reverse ?] DISCRETE_ RANGE 

(5.5) (parserl) 

L00P_ST ATEMENT — > [ identifier : ?] [ ITERATION_SCHEME ?] loop 

SEQUENCE_0 F_STATEMENTS end loop [ identifier ?] s 

(6.1) (parser2) 

MODE — > [ in ?] 

— > in out 
— > out 

(4.5) (parser4) 

MULTI PLYING_OPERATOR — > * 

— > / 

— > mod 
— > rem 



(4.1) ( parser^ ) 

NAME — > identifier [ NAME_TAIL ?] 

— > character_literal [ NAME_TAIL ?] 
— > string_literal [ NAME_TAIL ?] 

(4.1) (parser3) 

NAME_TAIL — > 



(7.1) (parserl) 

PACKAGE_BODY — > identifier is P ACKAGE_BODY_T AI L 



( LE FT_P AREN_NAME_T AI L 
.SELECTOR [ NAME_TAIL] 

•AGGREGATE [ NAME_TAIl1 
' ATTRIBUTE_DESIGNATOR [ NAME.TAIL] 



(7.1) (parserl) 

P ACKAGE_BODY_T AIL — > separate > 

— > T DECLARATIVE_PART ?] [ begin SEQUENCE OF_STATEMENTS 

[ exception [ EXCEPTION_HANDLER] + ?] ?J end [ identifier ?] I 

(7.1) ( parserl ) 

PACKAGE_TAIL_END — > new NAME [ GENERIC.ACTUAL PART ?] i 
— > [ BASIC_DECLARATIVE_ITEm 1J r private 

[ BASIC_DECLARATIVE_ITEMJ ?] end [ identifier ?] > 



(7.1) (parserl) 

PACKAGE_DECLARATION — > body PACKAGE_BODY 

— > identifier PACKAGE_UNIT 

(7.1) (parserl) 

PACKAGE.UNIT — > is PACKAGE_TAI L_END 
— > renames NAME } 
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(6.1) (parser2) 

PARAMETER_SPECIFICATION — > IDENTXFXER_LIST : MODE NAME [ := EXPRESSION ?] 



(4.4) (parser3) 

PRIMARY — > numeric.li teral 
— > null 



--> string.literal 
— > new ALLOCATOR 
--> NAME 
— > AGGREGATE 



( 7.4 ) ( par^er2 ) 

PRIVATE_7YPE_3ECLARATI0N — > [ limited ?] private 



(6.1) (parserl) 
PROCEDURE_UNIT — > 
— > 
— > 



identifier [ FORMAL. 3 ART 
identifier \ m FORMAL.PART ?1 
identifier [ FCRMAL.PART ?] 



is 3vJBPRQGRAM_B0DY 

y 

renames NAME j 



(3.9) (parserl) 
PROPER.BODY — > 
— > 
— > 



procedure PROCEDURE.UNIT 
function FUNCTION JJNIT 
package PACKAGE .DECLARATION 
task TASK. DECLARATION 



(3.5) ( parserl ) 

RANGES — > SIMPLE_EXPRSSSION { . .3IMPLE_=XPRESSI0N ?] 



(11.3) ( parser3 ) 

RAISE_3TATEMENT — > [ NAME ?] > 



(13.4) (parser?) 

RECORD_REPRESENTATIQM_CLAUSc — > [ at mod SIMPLE_EXPRESSION ?] 

[ NAME at SIMPLE.EXPRESSION range RANGES] 
end record * 



(3.7) ( parser2 ) 

RECORD_TYPE_DEFINITION — > COMPONENT.LIST end record 



(4.4) (parser3) 

RELATION — > SIMPLE.EXPRESSION [ SIMPLE_EXPRESSION_TAIL ?] 



(4.4) (parser3) 
RELATI0N_TAIL — > 
— > 
— > 



and [ then ?] RELATION] 
or [ else ?] RELATION] 
xor RELATION] 



(4.5) (parser4) 
RELATIONAL_OPERATOR — > = 

--> /= 
— > < 
— > <= 
— > > 
— > >= 



(13.1) (parser2) 

REPRESENTATION.CLAUSE — > for NAME use record RECORD_REPRESENTATION_CLAUSE 

— > for NAME use [ at ?] SIMPLE.EXPRESSION i 



(5.8) (parser3) 

RETURN_STATEMENT — > [ EXPRESSION ?] J 
(10.1) ( parserO ) 

SECONDARY.UNIT — > LIBRARY_UNIT_BODY 
— > SUBUNIT 
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(9.7.1) (parserl) 
SELECT_ALTERNATIVE 



— > 



when EXPRESSION => ?] accept ACCEPT.STATEMENT 
SEQUENCE_OF_STATEMENTS ?] 

— > ' when EXPRESSION => ?] delay DELAY_STATEMENT 

’ SEQUENCE_OF_STATEMENTS ?] 

— > [ when EXPRESSION => ?] terminate \ 



(9.7.1) ( parserl ) 

SE L E CT_ENT RY_C ALL --> else SEQUENCE_OF_ST ATEMENT S 

— > or delay DELAY_ST ATEMENT [ SEQUENCE_OF_STATEMENTS ?] 

(9.7) (parserl) 

Sc LECT_3T ATEMENT — > Sc LECT_ ST ATEMENT _TAIL ScLECT_ENTRY_~ALL and select , 



(9.7.1) (parserl) 

SELEC7_STATEMEN7_TAIL — > SELECT ALTERNATIVE f or SE LECT_ ALTERNATIVE j 

— > NAME Cl SEQUENCE _OF_STATEMENTS ?] 



( *.1 . 3 ) 
SELECTOR 



( parsers ) 

— > iaentifier 
— > character_Ii terai 
— > string_literal 
— > all 



(5.1) (parserl) 

ScQUENCE_0F_3TATEMENTS — > [ STATEMENT j + 

( 4 . ) ( parser! ) 

SIMPLE_EXPRESSION — > f + ?] TERM [ 3INARY_ADDING_0PERAT0R TERMJ* 
— > - ?J TERM l 3INARY_ADDING_QPERAT0R TERM] 



(4.4) (parser!) 

SIMP LE_IXPRES3I0N_ TAIL — > 

— > 



RELATICNAL.OPERATOR SIMPLE.sXPRESSION 
‘ not ?| in RANGES 
not ?] in NAME 



(5.1) ( parser2 ) 
SIMPLE_STATEMENT --> 
— > 
— > 
— > 
--> 
— > 
— > 
— > 
— > 
— > 
— > 



null \ 

ASSIGNMENT_STATEMENT 
PROCEDURE_CALL_STATEMENT 
exit EXIT.ST ATEMENT 
return RETURN_STATEMENT 
goto GOTO.STATEMENT 
delay DELAY_STATEMENT 
abort ABORT_STATEMENT 
raise RAISE_STATEMENT 
ENTRY_CALL_ST ATEMENT 
CODE_ST ATEMENT 



(5.1) (parserl) 


STATEMENT — > 


[ LABEL ?] SIMPLE_STATEMENT 


— > 


[ LABEL ?J COMPOUND_STATEMENT 


(6.3) (parserl) 


SUBPROGRAM_BODY 


— > new NAME [ GENE RIC_ACTUAL_P ART ?] * 

— > separate \ 

— > <> j 

— > [ DECLARATIVE_PART ?] begin SEQUENCE.! 

[ exception [ EXCEPTION.HANDLEr] ?] 
end [ DESIGNATOR ?] v 
— > NAME ) 



(3.!. 2) (parser2) 

SUBTYPE_DECLARATI0N — > identifier is SUBTYPE_INDICATION \ 
(3.3.2) (parser3) 

SUBTYPE_INDI CATION --> NAME [ CONSTRAINT ?] 
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(ID. 2) (parserO) 

SUBUNIT — > separate (NAME) PROPER_BODY 

(9.1) (parserl) 

TASK_BODY — > identifier is TASK_BODY_TAIL 

(9.1) (parserl) 

T ASK_BODY_TAI L — > separate 



--> [ DECLARATIVE_PART ?] begin SEQUENCE_OF_STATEMENTS 
[ r I0N_HANDLER] + ?] 



(4.4) (parser^) 

TERM — > FACTOR [ MULTIPLYING_OPERATOR FACTOR] 

(3.3.1) (parser2) 

TYPE.DECLARATION — > identifier [ DISCRIMINANT.PART ?] 

[ is PRIVATE TYPE_DEFINITION ?] \ 

— > identifier [ DISCRIMINANT^PART ?] 
[ is TYPE_DEFINITION ?] * 

(3.3.1) ( parser2 ) 

TYPE.OEFINITION — > ENUMERATTON_TYPE_DEFINITION 



— > INTEGER_TYPE_DEFINITION 

— > digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
— > delta FlOATING_OR_FIXED_POINT_CONSTRAINT 
— > array ARRAY_TYPE_DEFINITION 
--> record RECORD_TYPE_DEFINITION 
— > access SUBTYPE_DEFINITION 
— > new SUBTYPE_INDICATION 



(3.7.3) ( parser2 ) 

VARIANT — > when CHOICE [ I CHOICE] => C0MP0NENT_LIST 
(3.7.3) (parser2) 

VARIANT_PART — > case identifier is [ VARIANT] end case * 

(10.1.1) ( parser2 ) 

WITHJDRJJSE_CLAUSE — > identifier [ , identifier] * 




(9.1) ( parserl ) 

TASK_DECLARATION — > body TASK_B0DY * 



— > 



• [ type ?] identifier r is [ 

[ REPRESENT ATION_ClAUScJ* end 



l s [ ENTRY_DECLARJ 
end [ identifier 
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APPENDIX B 

'ADAMEASURE' USERS GUIDE 



1. Once you have logged on a VT100 terminal, type RUN DEMON to begin execution 
of 'AdaMeasure'. The initial screen gives the general information about the program. 



******************************************************************** 



* * 

* WELCOME TO ‘AdaMEASURE’ * 

* * 

* AUTHORED BY: LCDR JEFFREY L. NIEDER > USN * 

* LT KARL S. FAIRBANKS , USN * 

* * 

* NAVAL POSTGRADUATE SCHOOL * 

* DEPARTMENT OF COMPUTER SCIENCE * 

* MONTEREY, CALIFORNIA * 

* * 

* 31 OCTOBER 1986 * 

* * 

* VERSION 1.0 * 

* * 



* This program provides an automated software metric tool which * 

* uses quantitative measures in an effort to supply the user with * 

* helpful information about the static structure of a given input * 

* program. This program is public domain information. * 

* * 
******************************************************************** 

Enter any letter to continue 

2. Enter any letter to continue. This is required because Ada filters out carriage 
returns so just hitting ENTER will not cause execution to continue. The next screen 
shown is the MAIN SELECTION MENU. From here the user enters the digits 1, 2 
or 3 to either parse a file, view previously gathered data, or quit to the operating 
system, respectively. 



***************************************************************************** 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



MAIN SELECTION MENU 

HERE ARE THE ACTION CHOICES AVAILABLE TO YOU 
Simply enter the number of your choice 

1 - PARSE AN INPUT FILE 

2 - VIEW PREVIOUSLY GATHERED DATA 

3 - EXIT TO OPERATING SYSTEM 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



***************************************************************************** 
Choice = 



3. If the user selects number one then he will be prompted for the file name of the file 
he wishes to have parsed. While parsing of the file is in progress, the user will see a 
message on the screen indicating at what line number, in the input file, the parser has 
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reached. When parsing of the input file commences, 'AdaMeasure' creates four new 
files. The four files have the same name as the user's input file with the following 
extensions: fn.DATA, fn.HALS, fn.RAND, fn.MISC. The meaning of each of these 
new files will be explained later in this user's guide. 

4. Upon conclusion of parsing the input file, or if the user selects number two from 
the MAIN SELECTION MENU, the program displays the METRIC SELECTION 
PROGRAM. From chis menu, the user can select any of the listed metrics, exit to the 
MAIN SELECTION MENU, or exit to the operating system. 

*******************^****************^********************-****************** 



* * 

* METRIC SELECTION MENU * 

* * 

* HERE ARE THE INFORMATION CHOICES AVAILABLE TO YOU * 

* * 

* Simply enter the number of your choice * 

* * 

* 1 - HALSTEAD* METRIC INFORMATION * 

* * 

* Z - COMMENT AND NESTING METRIC INFORMATION * 

* * 

* 3 - 'HENRY and KAFURA* METRIC INFORMATION * 

* * 

* * - EXIT TO MAIN MENU * 

* « 

* S - EXIT TO OPERATING SYSTEM * 

* * 



Choice = 

5. If number one is selected, the Halstead Metric choice, the next menu displayed is 
the HALSTEAD SELECTION MENU. From this menu, the calculations and 
conclusions of the Halstead Metric can be selected. There also exists the options of 
exiting to the METRIC SELECTION MENU, or exiting to the operating system. 
****************************************************************************** 



* * 

* HALSTEAD SELECTION MENU * 

* * 

* * 

* HERE ARE THE HALSTEAD METRIC OPTIONS AVAILABLE TO YOU * 

* * 

* Simply enter the number of your choice * 

* * 

* 1 - HALSTEAD OPERATORS * 

* * 

* 2 - HALSTEAD OPERANDS * 

* * 

* 3 - HALSTEAD METRIC CONCLUSIONS * 

* * 

* 4 - EXIT TO METRIC SELECTION MENU * 

* * 

* 5 - EXIT TO OPERATING SYSTEM * 

* * 



***************************************************************************** 
Choice = 
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6. From the HALSTEAD SELECTION MENU, if number one is selected, the 
Halstead operator data is displayed. The operator data is stored in the fn.DATA file. 
The Halstead operator data includes the total number of different operators used, the 
total number of occurences of those operators, and the number of occurences of each 
individual operator. 

7. If number two from the HALSTEAD SELECTION MENU is chosen, the 
HALSTEAD OPERAND SELECTION MENU is displayed. From this menu the 
different classes of operands and their data can be selected for viewing. Also available 
for selection are exiting to the HALSTEAD SELECTION MENU, and exiting to the 
operating system. 

44444444444444444444444444444444444444444444444444444444444444444444444444444 



4 4 

* HALSTEAD OPERAND SELECTION MENU * 

* * 

* 4 

* HERE IS THE OPERAND DATA AVAILABLE * 

4 4 

* Simply enter the number ot your choice * 

4 * 

* 1 - PROCEDURE * FUNCTION, PACKAGE INFORMATION « 

* 4 

4 2 - VARIABLES AND CONSTANTS INFORMATION * 

4 4 

4 3 - TASKS AND BLOCKS INFORMATION 4 

4 4 

4 <+ - EXIT TO HALSTEAD SELECTION MENU 4 

4 4 

4 5 - EXIT TO OPERATING SYSTEM 4 

4 4 



44444444444444444444444444444444444444444444444444444444444444444444444444444 

Choice = 

8. From the HALSTEAD OPERAND SELECTION MENU, selection of any of the 
operand calasses will show each identifier and number of occurences of for that 
particular class. The data for all operand classes is stored in the fn.RAND file. 

9. Back to the HALSTEAD SELECTION MENU. If the selection is number three, 
the Halstead Metric conclusions are displayed. The conclusions include the input file's 
calculated theoritical length, its actual length, the difference between the two lengths, 
and some comments about that difference. The Halstead Metric conclusion data is 
stored in the fn.HALS file. 

10. Back to the METRIC SELECTION MENU. If the selection number is two, the 
comment and nesting metric information is displayed on the screen. The comment 
metric information includes the total number of lines in the input file, the total number 
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of comment lines, a percentage of lines of comments to lines of code, and some 
observations about that percentage. The nesting metric information contains the type 
and total occurences of nesting contracts used in the input file, the deepest level of 
nesting parsed, and how many times each nesting level, up to the deepest, was 
encountered. The comment and nesting metric information is stored in the fn.MISC 
file. 

11. The final choice in the METRIC SELECTION MENU is the Henry and Kafura 
Complexity Flow Metric. At present, this metric is not implemented. Ongoing 
development of 'AdaMeasure' includes plans to implement this metric as well as other 
metrics and Ada tools. 
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APPENDIX C 

'ADAMEASURE' PROGRAM LISTING - PART 1 



— *************************************************************** — 



~ TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 



PACKAGE BYPASS_FUNCTION 
25 JUL 86 
03 DEC 3b 



— AUTHORS: 



LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the workhorse function 

required to identify each individual token. 



— *************************************************************** — 



with HALSTEAD_METRIC, 3YPASS_SUPP0RT_FUNCTI0NS , GLOBAL, GLOBAL_PARSER * 
use HALSTEAD_METRIC, BYPASS_SUPPORT_FUNCTIONS , GLOBAL, GL0BAL_PARSER * 

package BYPASS.FUNCTION is 

function BYPASSt TOKEN_ARRAY_ENTRY_CODE : integer) return boolean* 
procedure CONDUCT_RESERVE_WORD_TEST ( CONSUME : in out boolean)* 
end 3YPASS_FUNCTI0N * 



package body BYPASS_FUNCTION is 



— this function compares the lexeme of the current token with the 

token currently being sought by the parser. If the current token 
type is identifier, then a test is conducted to ensure it is not 

— a reserved word. 

function BYPASS( TOKEN_ARRAY_ENTRY_CODE : integer) return boolean is 
CONSUME : boolean := FALSE* 

LEXEME : string! 1. .LINESIZE )* 

SIZE : natural* 

begin 

GET_CURRENT_TOKEN_RECORD(CURRENT_TOKEN_RECORD, LEXEME_LENGTH )* 

LEXEME := CURRENT_TOKEN_RECORD . LEXEME * 

SIZE := CURRENT_TOKEN_RECORD.LEXEME_SIZE - 1* 

case TOKEN_ARRAY_ENTRY_CODE is 
when TOKEN.IDENTIFIER => 

if ( CURRENT_TOKEN_RECORD . TOKEN_TYPE = IDENTIFIER) then 
CONSUME := TRUE* 

CONDUCT_RESERVE_HORD_TEST ( CONSUME ) * 
end if* 

if (CONSUME) then 

CONVERT_UPPER_CASE ( LEXEME , SIZE ) * 

OPERAND_METRIC(HEAD_NODE, CURRENT_TOKEN_RECORD , DECLARE_TYPE ) > 
DECLARE_TYPE := VARIABLE_DECLARE * 
end if* 

when TOKEN_NUMERIC_LITERAL => 

if ( CURRENT_TOKEN_RECORD . TOKEN_TYPE = NUMERIC_LIT ) then 
CONSUME := TRUE* 

DECLARE_TYPE := CONSTANT_DECLARE * 

OPERAND_METRIC( HEAD_NODE , CURRENT_TOKEN_RECORD , DECLARE.TYPE ) * 
DECLARE_TYPE := VARIABLE_DECLARE * 
end if* 



46 



when TOKEN_CHARACTER_LITERAL => 

if ( CURRENT_TOKEN_RECORD . TOKEN_TYPE = CHARACTER_LIT ) then 
CONSUME := TRUE ; 
end i f ; 

when TOKEN_STRING_LITERAL => 

if ( CURRENT_TOKEN_RECORD . TOKEN_TYPE = STRING_LIT ) then 
CONSUME := TRUE ; 
end if 5 

when TOKEN_END => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "end") then 
CONSUME := TRUE’, 
end i f ; 

when TOKEN. BEGIN => 

if ( ADJUST_LEXEME( LEXEME, SIZE) = 'begin*' ) then 
CONSUME := TRUE; 
end if; 

when TOKEN_IF => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "if") then 
CONSUME := TRUE; 
end if; 

when TOKEN JTHEN => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "then") then 
CONSUME := TRUE; 

-and i f ; 

when TOKEN^cLSIr => 

if l ADJUST_LEXEME( LEXEME, SIZE) - "eisif") then 
CONSUME TRUE; 
end if; 

when TOKEN_ELSE => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "else") then 
CONSUME := TRUE; 
end if; 

when TOKEN_WHILE => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "while") then 
CONSUME := TRUE; 
end if; 

when TOKEN_LOOP => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "loop") then 
CONSUME := TRUE; 
end if; 

when TOKEN_CASE => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "case") then 
CONSUME := TRUE; 
end if; 

when TOKEN_HHEN => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "when") then 
CONSUME := TRUE; 
end if; 

when TOKEN_DECLARE => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "declare") then 
CONSUME := TRUE; 
end if; 

when TOKEN_FOR => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "for") then 
CONSUME := TRUE; 



47 



end if* 



when TOKEN_OTHERS => 

if ( AD JUST_LEXEME ( LEXEME , SIZE) = “others") then 
CONSUME := TRUE* 
end if* 

when TQKEN_RETURN => 

if < AD JUST_LEXEME< LEXEME, SIZE) = "return") then 
CONSUME := TRUE* 
end if* 

when TOKEN_EXIT => 

if ( ADJUST_LcXEME( LEXEME > SIZE) = "exit") then 
CONSUME := TRUE* 

end i f * 

when TOKEN_PROCEDURE => 

if I AD JUST_LEXEMS< LEXEME, SIZE) = "procedure') then 
CONSUME TRUE* 

end i f * 

when TOKEN.FUNCTION => 

if UDJUST_LEXEM£< LEXEME , SIZE) = "function") '-hen 
CONSUME := TRUE* 
end i f * 

when TQKEN_NITH => 

if ( ADJUS7_LHXEME ( LEXEME , SIZE) “ "with") then 
CONSUME TRUE* 

end if* 

when TOKEN JJSE => 

if ( ADJUS7_LEXEME( LEXEME > SIZE) = "use") then 
CONSUME := TRUE* 
end if* 

when TOKEN_PACKAGE => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "package") then 
CONSUME := TRUE* 
end if* 

when TOKEN_BODY => 

if ( AD JUST_LEXEME< LEXEME, SIZE) = "body") then 
CONSUME := TRUE* 
end if* 

when TOKEN_RANGE => 

if < AD JUST_LEXEME< LEXEME, SIZE) = "range") then 
CONSUME := TRUE* 
end if* 

when TOKEN_IN => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "in") then 
CONSUME := TRUE* 
end if* 

when TOKEN_OUT => 

if (ADJUST_LEXEME< LEXEME, SIZE) = "out") then 
CONSUME := TRUE* 
end if* 

when TOKEN_SUBTYPE => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "subtype") then 
CONSUME := TRUE* 
end if* 

when TOKEN_TYPE => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "type") then 
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CONSUME := TRUE * 
end if* 

when TOKEN__IS => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "is") then 
CONSUME := TRUE* 
end i f * 

when TOKEN_NULL => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "null”) then 
CONSUME := TRUE* 
end i f * 

when TOKEN_ACCESS => 

if <ADJUST_LEXEME( LEXEME, SIZE) = "access") then 
CONSUME := TRUE* 
end if* 

when TOKEN_ARRAY => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "array") then 
CONSUME := TRUE* 
end i f * 

when TOKEN_DIGITS => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "digits") then 
CONSUME := TRUE* 
end i f * 

when TOKEN_DELTA => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "delta") then 
CONSUME := TRUE* 
end if* 

when TOKEN_RECORD_STRUCTURE => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "record") then 
CONSUME ;= TRUE* 
end if* 

when TOKEN_CONST ANT => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "constant") then 
CONSUME := TRUE* 
end if* 

when TOKEN_NEH => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "new") then 
CONSUME := TRUE* 
end if* 

when TOKEN_EXCEPTION => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "exception") then 
CONSUME := TRUE* 
end i f * 

when TOKEN_RENAMES => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "renames") then 
CONSUME := TRUE* 
end if* 

when TOKEN_PRIVATE => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "private") then 
CONSUME := TRUE* 
end i f * 

when TOKEN_LIMITED => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "limited") then 
CONSUME := TRUE* 
end if* 

when TOKEN_TASK => 
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if ( ADJUST_LEXEME( LEXEME > SIZE) 
CONSUME := TRUE ; 
end i f ; 

when TOKEN.ENTRY => 

if ( ADJUST_LEXEME( LEXEME , SIZE) 
CONSUME := TRUE ; 
end i f * 

when TOKEN.ACCEPT => 

if ( ADJUST_LEXEME( LEXEME , SIZE) 
CONSUME := TRUE; 
end if; 

when TOKEN.OELAY => 

if ( AD JUST_LEXEME( LEXEME, SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN.SELECT => 

if (ADJUST_LEXEME( LEXEME, SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN.TERMINATE => 

if (ADJUST_LEXEME( LEXEME, SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN_ABORT => 

if ( AD JUST_LEXEME( LEXEME, SIZE) 
CONSUME := TRUE; 
end if; 

when TOKEN_SEPARATE => 

if ( ADJUST_LEXEME( LEXEME , SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN_RAISE => 

if ( ADJUST_LEXEME( LEXEME , SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN_GENERIC => 

if ( ADJUST_LEXEME( LEXEME , SIZE) 
CONSUME := TRUE; 
end i f ; 

when TOKEN_AT => 

if (ADJUST„LEXEME( LEXEME, SIZE) 
CONSUME ;= TRUE; 
end i f ; 

when TOKEN_RE VERSE => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) 
CONSUME := TRUE; 
end if; 

when TOKEN_DO => 

if (ADJUST_LEXEME( LEXEME, SIZE) 
CONSUME := TRUE; 
end if; 

when TOKEN_GOTO => 

if (ADJUST. LEXEME ( LEXEME, SIZE) 
CONSUME ;= TRUE; 
end i f ; 



"task" ) then 



"entry") then 



"accept" ) then 



"delay" ) then 



"select") then 



"terminate") then 



"abort") then 



"separate") then 



"raise") then 



"generic") then 



"at") then 



"reverse") then 



"do" ) then 



"goto" ) then 
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when TOKEN_OF => 

if <ADJUST_LEXEME( LEXEME, SIZE) = "of”) then 
CONSUME := TRUE ; 
end i f > 

when TOKEN,ALL => 

if (ADJUST_LEXEME( LEXEME, SIZE) = "all") then 
CONSUME TRUE ; 

end i f > 

when TOKEN_PRAGMA => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "pragma") then 
CONSUME := TRUE ; 
end i f ; 

when TOKEN, AND => 

if ( ADJUST,LEXEME( LEXEME , SIZE) = "and") then 
CONSUME TRUE*, 

and i f ; 

0PERAT0R_ME7RIC(T0KEN,AND> CONSUME > RESERVE, HORD,7EST ) ; 
when TOKENJDR => 

if < AD JUST_LEXEME( LEXEME, SIZE) - "or") then 
CONSUME := TRUE ; 
and if; 

OPERATOR, METRIC( TOKEN,OR , CONSUME , RESERVE_W0RD_7EST ) ; 
when TOKEN,NOT => 

if (ADJUST,LSXEME( LEXEME, SIZE) = "not") then 
CONSUME := TRUE; 
and if; 

QPERATOR,METRICI TOKEN_NOT , CONSUME, RESERVE,NORD„TEST ) ; 
when TOKEN,XOR => 

if (ADJUST,LEXEME( LEXEME, SIZE) = "xor" ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_XOR, CONSUME, RESERVE_MORD_TEST ); 
when TOKEN_MOD => 

if <ADJUST_LEXEME< LEXEME, SIZE) = "mod") then 
CONSUME := TRUE; 
end if; 

OPERATOR,METRIC ( TOKEN_MOD , CONSUME, RESERVE_WORD_TEST ) ; 
when TOKEN_REM => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "rem") then 
CONSUME := TRUE; 
end i f ; 

OPERATOR_METRIC( TOKEN_REM, CONSUME, RESERVE_WORD_TEST ) ; 
when TOKEN_ABSOLUTE => 

if (ADJUST_LEXEME< LEXEME, SIZE) = "abs" ) then 
CONSUME := TRUE; 
end i f ; 

OPERATOR_METRIC(TOKEN_ABSOLUTE, CONSUME, RESERVE_WORD_TEST ) ; 

when TOKEN_ASTERISK => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = ) then 

CONSUME := TRUE; 
end i f ; 

OPERATOR_METRIC( TOKEN_ASTERISK , CONSUME, RESERVE_WORD_TEST ) ; 
when TOKEN_SLASH => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "/" ) then 
CONSUME ;= TRUE; 
end if; 

OPERATOR_METRIC( TOKEN_SLASH , CONSUME, RESERVE_WORD_TEST ) ; 
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when TOKEN_EXPONENT => 

if (ADJUST_LEXEME( LEXEME , SIZE) = "**" ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_EXPONENT, CONSUME , RESERVE_WORD_TEST ) ; 
when TOKEN_PLUS => 

if ( ADJUST_LEXEME< LEXEME > SIZE) = " + ") then 
CONSUME TRUE ; 
end if; 

CPERATOR_METRIC(TOKEN_PLUS, CONSUME, RESERVE_WORD_TEST ) ; 
when TOKEN_MINUS => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = ) then 

CONSUME : - TRUE*, 
end if; 

OPERATOR_METRIC( TOKEN.MINUS, CONSUME , RESERVE _N0RD_TES7 ) ; 

when 70KEN_AMPERSAND => 

if <ADJUST_LEXEME( LEXEME, SIZE) = “S") then 
CONSUME := TRUE ; 
end if; 

OPERATOR_METRIC( TOKEN_AMPERSAND , CONSUME, RESERVE_WORD_TEST ) ; 
when TQKEN_EQUAL3 => 

if ( ADJUST_tEXEME ( LEXEME > SIZE) = l, = M ) then 
CONSUME TRUE ; 

end 1 f *» 

0PERA70R_METRICIT0KEN_EQUALS, CONSUME, RESERVE_WORD_TEST ) ; 

wnen TOK E N_NOT_E QU A L3 = > 

if ( ADJUS7_LEXEME ( LEXEME , SIZE) = ,t /= i ’ ) then 
CONSUME TRUE; 

end if*, 

0PERAT0R_METRIC(T0KEN_N0T_EQUAL3, CONSUME , RESERVE_WORD_TES T ) ; 

when TOKEN_LESS_THAN => 

if (ADJUST_LEXEME( LEXEME, SIZE) = n < H ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_LESS_THAN, CONSUME, RESERVE_WORD_TEST ) ; 

when TOKEN_LESS_THAN_EQUALS => 

if ( ADJUST_LEXEME( LEXEME, SIZE) = "<=" ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC ( TOKEN_LESS_THAN_EQUALS , CONSUME , RESERVE__WORD_TEST ) ; 

when TOKEN_GREATER_THAN => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ">" ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_GREATER_THAN, CONSUME, RESERVE_WORD_TEST ) ; 

when TOKEN_GREATER_THAN_EQUALS => 

if (ADJUST_LEXEME( LEXEME, SIZE) = '•>=" ) then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_GREATER_THAN_EQUALS, CONSUME , RESERVE_HORD_TEST ) ; 

when TOKEN_ASSIGNMENT => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ":=") then 
CONSUME := TRUE; 
end if; 

OPERATOR_METRIC(TOKEN_ASSIGNMENT, CONSUME, RESERVE_WORD_TEST ) ; 
when TOKEN_COMMA => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ,, , ,, ) then 
CONSUME := TRUE; 
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end i f ) 



when T OKEN_SEMICOLON => 

if ( ADJUST__LEXEME( LEXEME , SIZE) = 'V') then 
CONSUME := TRUE ) 
end i f ) 

when TOKEN_PERIOD => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ".") then 
CONSUME := TRUE ) 
end if) 

when TOKEN_LEFT_PAREN => 

if ( ADJUST_LEXEME( LEXEME, SIZE) = "( M ) then 
CONSUME := TRUE 5 
end if* 

when TOKEN_RIGHT_PAREN => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = " )" ) then 
CONSUME := TRUE) 
end if) 

when TOKEN_COLON => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ":") then 
CONSUME := TRUE) 
end i f j 

when TOKEN_APOSTROPHE => 

if ( ADJUST_LEXEME( LEXEME, SIZE) = ) then 

CONSUME := TRUE) 
end if) 

when TOKEN_RANGE_DOTS => 

if (ADJUST_LEXEME( LEXEME, SIZE) = ".,") then 
CONSUME := TRUE) 
end if) 

when TOKEN.ARROW => 

if ( ADJUST_LEXEME ( LEXEME , SIZE) = "=>•■) then 
CONSUME := TRUE) 
end i f ) 

when TOKEN.BAR => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = " " ) then 
CONSUME := TRUE) 
end i f ) 

when TOKEN_BRACKETS => 

if ( AD JUST_LEXEME( LEXEME, SIZE) = "<>" ) then 
CONSUME := TRUE) 
end i f ) 

when TOKEN_LEFT_BRACKET => 

if ( ADJUST_LEXEME( LEXEME , SIZE) = "« M ) then 
CONSUME := TRUE) 
end if) 

when TOKEN_RIGHT_BRACKET => 

if < ADJUST_LEXEME< LEXEME, SIZE) = ,, »") then 
CONSUME := TRUE) 
end i f ) 

when others => null) 
end case) 

ADJUST_TOKEN_BUFFER( CONSUME , RESERVE_WORD_TEST ) ) 

return (CONSUME)) 
end BYPASS) 
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— this procedure tests all identifiers to verify they are not reserved 

words. The most common reserved words are tested first and the process 

— halts when a match is made or the test fails, 
procedure CONDUCT_RESERVE_HORD_TEST ( CONSUME : in out boolean) is 
begin 

RESERVE_.HORD_.TEST := TRUE s 

for RESERVE_WORD_INDEX in T0KEN_END. . T0KEN..ABS0LUTE loop 
if ( BYPASS( RESERVE_WORD_INDEX ) ) then 
CONSUME := FALSE > 
end if, 

exit when not CONSUME * 
end loops 

RESERVE_WGRD_TEST := FALSE S 
end CONDUCT_REScRVE__WORD_TEST * 

end BYPASS_FUNCTIONs 
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— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: PACKAGE BYPASS.SUPPORT.FUNCTIONS 

— DATE CREATED: 03 OCT 86 

— LAST MODIFIED: 03 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedures and 

function required to support the function 3YPASS. 



— ***************************************************************-- 



with SCANNER, GLOBAL, GLOBAL .PARSER , 7EXT.T0; 
use SCANNER, GLGBAL, GLOBAL. PARSER , TEXT. 10 * 

package BYPASS.SUPPORT.FUNCTIONS is 

package NEW.INTEGcR.lO is new TEXT. 10 . INTEGER. I0( integer ) j 
use NEW.INTEGcR.lO ; 



procedure G5T.CURRENT.T0KEN.REC0RD 

(CURRENT.70KEN.REC0RD : in out TOKEN. RECORD.TYPE ; 

LEXEME. LENGTH : in out integer ) * 
procedure TRACE ( TRACE. TOKEN : in siring* 

CONSUME, RESERVE .WORD. TEST : in boolean)* 

procedure ADJUST.70KEN.3UFF5R( CONSUME , RESERVE.WORD.TEST : in boolean); 
function AD JUST. LEXEME ( INPUT. LEXEME : string* SIZE : natural) return string* 
proceaure CONVERT.LOWER.CASE ( INPUT. LEXEME : in out string* 

LENGTH : in out integer); 

procedure CONVERT.UPPER.CASE ( INPUT. LEXEME : in out string* 

LENGTH : in out integer); 



end BYPASS.SUPPORT.FUNCTIONS * 



package body BYPASS.SUPPORT.FUNCTIONS is 



— this procedure handles the loading of the token record buffer, flushes 

out comments (while keeping count of them) and separators, and prints 

— out the current line being parsed to the screen, 
procedure GET.CURRENT.TOKEN.RECORD 

(CURRENT.TOKEN.RECORD : in out TOKEN.RECORD.TYPE * 

LEXEME.LENGTH : in out integer) is 
DISPLAY. DELAY : constant integer := 250 * 
begin 

if ( FIRST.TIME.LOAD ) then 

while (PLACE.HOLDER.INDEX /= TOKEN.ARRAY.SIZE + 1) loop 
if not ( END_OF_FILE( TEST.FILE ) ) then 
GET_NEXT.TOKEN( T0KEN.REC0RD ) * 

if ((T0KEN_REC0RD.T0KEN.TYPE /= SEPARATOR) and 
(TOKEN_RECORD.TOKEN.TYPE /= COMMENT)) then 
TOKEN_RECORD_BUFFER( PLACE.HOLDER.INDEX) := TOKEN.RECORD * 
PLACE.HOLDER.INDEX := PLACE.HOLDER.INDEX + 1* 
els if ( TOKEN.RECORD. TOKEN.TYPE = COMMENT) then 
COMMENT.COUNT := COMMENT.COUNT + 1* 
end if* 
else 

TOKEN_RECORD_BUFFER( PLACE.HOLDER.INDEX). TOKEN.TYPE := ILLEGAL* 
TOKEN_RECORD_BUFFER( PLACE.HOLDER.INDEX ) . LEXEME.SIZE := 1* 
PLACE.HOLDER.INDEX := PLACE.HOLDER.INDEX + 1* 
end if* 
end loop* 

FIRST.TIME.LOAD := FALSE* 

FULL := TRUE* 

PLACE.HOLDER.INDEX := 1* 
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elsif ( ( TOKEN_ARRAY_INDEX = 0 ) and (not (FULL))) then 

TOKEN_RECORD_BUFFER( 0 ) : = TOKEN_RECORD_BUFFER( TOKEN-ARRAY-SIZE ) ; 
while (PLACE-HOLDER-INDEX /= TOKEN- ARRAY-SIZE + 1) loop 
if not ( END_OF-FILE( TEST-FILE ) ) then 
GET_NEXT_TOKEN( TOKEN-RECORD ) ; 

if ( ( TOKEN_RECORD . TOKEN-TYPE /= SEPARATOR) and 
(TOKEN-RECORD. TOKEN-TYPE /= COMMENT)) then 
TOKEN_RECORD_BUFFER( PLACE-HOLDER-INDEX) := TOKEN-RECORD ; 
PLACE-HOLDER-INDEX := PLACE-HOLDER-INDEX + 1; 
elsif ( TOKEN_RECORD . TOKEN-TYPE = COMMENT) then 
COMMENT-COUNT := COMMENT_COUNT ♦ 1; 
end i f ; 
else 

T0KEN-REC0RD_3UFF5R( PLACE .HOLDER. INDEX ). 70KEN-TYP£ : = ILLEGAL > 
T 0KEN.REC0RD.3UFFER( PLACE. HOLDER-INDEX ) . LEXEME-SIZE 1; 

PLACE-HOLDER. INDEX := PLACE-HOLDER- INDEX + 1; 
end if; 
end loooy 

PLACE-HOLDER-INDEX 1; 

FULL := TRUE; 
end if; 

if not (RESERVE-XORD-TEST) then 

CURRENT-TOKEN— RECORD : = T0KEN-REC0RD.3UFFER( TOKEN-ARRAY-INDEX ) ; 
end i f ; 



LEXEME-LENGTH CURRENT_TOKEN_RECORD . LEXEME -SIZE - 1; 
if (CURRENT-TOKEN-RECCRD. TOKEN-TYPE = IDENTIFIER) then 

CONVERT_LOWER_CASE( CURRENT-TOKEN .RECORD . LEXEME , LEXEME-LENGTH ) ; 

end if; 

STATUS-COUNTER : = STATUS-COUNTER * U 
if (STATUS-COUNTER = DISPLAY-DELAY) then 
new-line; 

CLEARSCREEN ; 

CONVERT-UPPER-CASE ( DATA_FILE_NAME , DATA_FILE_SIZE ) ; 

put< "Parse of M ) ; put ( ADJUST-LEXEME ( DAT A_FILE_NAME , DATA_FILE-SIZE ) ) ; 
put(" in progress, at line number " ) ; put( TOTAL-LINES-INPUT , 3); 
STATUS-COUNTER := 0; 
end if; 

end GET-CURRENT-TOKEN_RECORD> 



procedure TRACE ( TRACE-TOKEN : in string; 

CONSUME, RESERVE-WORD-TEST : in boolean) is 

begin 

if (CONSUME) and then not ( RESERVE_WORD_TEST ) then 
put (RESULT-FILE, "Parsed a(n) " ) ; 
put( RESULT-FILE, TRACE-TOKEN); 
new-li ne( RESULT-FILE ) ; 
end if; 
end TRACE; 



— this procedure adjusts the pointer to the token record buffer, 
procedure ADJUST_TOKEN_BUFFER( CONSUME , RESERVE-WORD-TEST : in boolean) is 
begin 

if ((CONSUME) and not ( RESERVE-WORD_TEST ) ) then 

TOKEN_ARRAY-INDEX := ( TOKEN_ARRAY_INDEX + 1) mod 50; 
if (TOKEN-ARRAY-INDEX = 0) then 
FULL := FALSE; 
end if; 
end if; 

end ADJUST-TOKEN-BUFFER; 
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-- this function takes as input the 132 character input_lexeme and generates 
a variable length string based on the actual size of the input_lexeme . 
function ADJUST_LEXEME( INPUT_LEXEME : string* SIZE : natural) return string is 
subtype LEXEME_BUFFER is stringt 1 . . SIZE ) * 

ADJUSTED_LEXEME : LEXEME_BUFFER * 
begin 

for I in 1 . . SIZE loop 

ADJUSTED_LEXEME ( I ) := INPUT_LEXEME (II* 
end loop* 

return ( ADJUSTED_LEXEME ) * 
end ADJUST_LEXEME * 



procedure CONVERT_LOHER_CASE ( INPUT_LEXEME : in out string* 

LENGTH : in out integer) is 
CONVERSION_FACTOR : constant integer := 32* 

— difference between upper case and lower case letters in ASCII 
LETTER_VALUE : integer* 
begin 

for I in 1.. LENGTH loop 

if (INPUT_LEXEME(I) in UPPER_CASE_LETTER ) then 

LETTER_VALUE := character 1 pos( INPUT_LEXEME( I ) ) + CONVERSION_FACTOR * 
INPUT_LEXEME ( I ) := character 'val( LETTER_VALUE ) * 
end if* 
end loop* 

end CONVERT_LOWER_CASE* 



procedure CONVERT_UPPER_CASE ( INPUT.LEXEME : in out string* 

LENGTH : in out integer) is 
CONVERSION_ FACTOR : constant integer := 32* 

— difference between upper case and lower case letters in ASCII 
LETTER_VALUE : integer* 
begin 

for I in 1.. LENGTH loop 

if ( INPUT_LEXEME( I ) in LOWER_CASE_LETTER ) then 

LETTER_VALUE := character 1 pos( INPUT_LEXEME ( I ) ) - CONVERSION_FACTOR * 
INPUT_LEXEME( I ) := character ‘val( LETTER.VALUE ) * 
end if* 
end loop* 

end CONVERT_UPPER_CASE * 
end BYPASS_SUPPORT_FUNCTIONS* 
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— *************************************************************** — 



TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: PROCEDURE DEMON 

— DATE CREATED: IS JUN 86 

— LAST MODIFIED: OS DEC 86 



AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



— DESCRIPTION: This procedure is the driver for AdaMeasure. 

— It also contains the exception handler for the entire 

— set of packages which comprise AdaMeasure. 



— *************************************************************** — 



with MENU_DISPLAY , GLOBAL_PARScR , GLOBAL, TEXT_IO> 
use MENU_DISPLAY , GLOBAL_PARSER , GLOBAL, TEXT_IO> 

procedure DEMON is 

package NEW_INTEGER_IO is new TEXT_IO. INTEGER_IO( integer )j 
use NEW_INTEGER - IO j 

begin 

DECLARATION := TRUE \ 

INITIAL_MENU > 

exception 



when 


PARSER_ERROR 


= > 


put(TOTAL_LINES_INPUTH new^linei 
putl "Parser error" 


when 


SC ANNE R_5 RROR 


= > 


putt next_character ) > 

putt character 'post NEXT_CHARACTER ) ) \ new_line * 
putt" Error occured, program halted" 


when 


STATUS_ERROR 


= > 


putt "Status error occured at line ")j 
put t TOTAL_LINES_INPUT ) j 


when 


MODE_ERROR 


= > 


putt "Mode error occured at line ")$ 

put t total_lines_input ) \ 


when 


NAME_ERROR 


= > 


putt "Name error occured at line " ) j 
putt TOTAL_LINES_INPUT ) \ 


when 


USE_ERROR 


= > 


putt"Use error occured at line ")* 

putt TOTAL_LINES_INPUT ) \ 


when 


DEVICE_ERROR 


=> 


putt "Device error occured at line ")j 

putt total_lines_input ) j 


when 


END_ERROR 


= > 


putt "End error occured at line ")* 

putt TOTAL_LINES_INPUT ) \ 


when 


DATA_ERROR 


= > 


putt "Data error occured at line " ) j 
putt TOTAL_LINES_INPUT ) J 


when 


LAYOUT_ERROR 


= > 


putt "Layout error occured at line ")j 

putt total_lines_input ) j 


when 


CONSTRAINTS RROR 


= > 


putt "Constraint error occured at line " ) j 

putt total_lines_input ) S 


when 


NUMERIC^ERROR 


=> 


putt "Numeric error occured at line 

putt TOTAL_LINES_INPUT ) j 


when 


ST OR AGE_E RROR 


= > 


putt "Storage error occured at line ")j 
put ( TOTAL_LINES_INPUT ) j 


when 


PROGRAMME RROR 


= > 


putt "Program error occured at line 

putt TOTAL_LINES_INPUT ) \ 


when 


QUIT_T0_0S 


= > 


CLEARSCREEN J 


when 


others 


= > 


putt "Error occured" 



end DEMON \ 
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*************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 



DISPLAY.SUPPORT 
11 OCT 86 
04 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedures and 

function for initializing the metric parameters, and 
supporting the user interface. 



— ***************************************************************-- 



with HALSTEAD_METRIC> GLOBAL_?^RScR , GLOBAL, 7EXT_IO*, 
use HALSTEAD_METRIC , GLGBAL_?ARSER > GLOBAL, TEXT^IOi 

package DISPLAY_3UPP0RT is 

procedure GET_FILENAME ( TYPE_ PRESENT : in out boolean )* 
procedure GET_ANSWER( ERROR , FINISHED : in out boolean )\ 
function ADJUST_EDIT_BUFFERf INPUT_STRING : strings 

FILL_LENGTH : integer) return strings 

procedure RESET — PARAMETERS \ 
end DISPLAY_SUPPORT > 



package body DISPLAY_$UPPORT is 

— this is a user interface support procedure that prompts the user for 
the input file name, wnenever the user must select a specific file, 
procedure GET_FILENAME( TYPE_PRE3ENT : in out ooolean ) is 
begin 

TYPE_ PRESENT := FALSE * 
for I in 1 . . LINESIZE loop 
INPUT_FILE_NAME( I ) := ' 

TEST_FILE_NAME<I) := ' 

DATA_FILE_NAME ( I ) := ' ' V 

end loop* 



put ( " + + + + +++ + +++ + + + + + + + + + + + + + + + + + + +++ + +++ + + + + + +++ + + + + + + *' )* 
put (" +++++++++++++++++++++++++++++") * new_line * 

putt "4 ")* 

putt" +" )* new_line* 

put ( " + Input the name of the file you wish to")* 

put!" analyze +" )* new_line* 

putt"4 "U 

put! " +" )* new_line* 

putt ,, +++ + + +++++ + + ++++++++++++++++++++++++++++++++++++++" )* 

putt "++4+++++++++++++++ +++++++++++" ) v new_line* 

new_line* 

putt "Filename = " ) * 



get_line(INPUT_FILE_NAME, LENGTH_OF_LINE ) > new_line(2)v 
for I in 1. . LENGTH_OF_LINE loop 

if t INPUT_FILE_NAMEt I ) = '.') then 
TYPE_PRESENT := TRUE* 
end if* 
end loop * 



if t TYPE_PRESENT ) then 

for I in 1. . LENGTH_0F_LINE-4 loop 

DATA_FILE_NAME( I ) := INPUT_FILE_NAMEt I ) * 
end loop * 

TEST_FILE_NAME := INPUT_FILE_NAME * 
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DAT A.FI LE.SIZE := LENGTH. OFFLINE - 4} 



else 

DATA.FILE.NAME := INPUT. FI LE.NAME } 
for I in 1. . LENGTH.OF.LINE loop 

TEST.FILE.NAME ( I ) := INPUT.FI LE.NAME ( I ) } 
end loop > 

DAT A.FI LE.SIZE : = LENGTH_OF_LINE } 
end if; 

end GET.FILENAME } 



(ANSWER = 1 n 1 ) then 



— this user interface support procedure ensures that the user answers 
the question correcxly, and dexernunes if the user is rinisned. 
procedure GET.ANSWER( ERROR > FINISHED : in out boolean) is 
begin 

FINISHED := false*, 
get! ANSWER); 
if (ANSWER - ‘N* ) or 
FINISHED := TRUE > 

ERROR := FALSE > 
elsif (ANSWER = 'Y') 

ERROR := FALSE, 
else 

ERROR TRUE} 
end if} 

end GET ANSWER, 



or (ANSWER = 



user correctly said no 
' y* ) then 

user correctly said yes 



— user answered the question incorrectly 



— this formatting function places the input string in the edit buffer 
and fills the remaining buffer spaces with periods, 
function ADJUST_5DIT.3UFFER( INPUT.3TRING : string} 

FILL.LENGTH : integer) return string is 

begin 

for I in 1. . FILL.LENGTH loop 

EDIT.BUFFERd ) := INPUT.STRINGd ) } 
end loop } 

for I in ( FILL.LENGTH+l ) . . EDIT.LINE.SIZE loop 
EDIT_BUFFER( I ) := ' .*} 
end loop } 

return ( EDIT.BUFFER ) } 
end ADJUST.EDIT.BUFFERi 



— this procedure resets all of the metric parameters, 
procedure RESET.PARAMETERS is 
begin 

for I in TOKEN. AND. . TOKEN.ASSIGNMENT loop 
OPERATOR.ARRAY ( I ) := 0} 
end loop } 

for I in IF.CONSTRUCT . . CASE.CONSTRUCT loop 
CONST RUCT.COUNT ( I ) := 0} 
end loop} 

for I in FIRST.LE VE L.NEST . . MAXIMUM.NE STING loop 
NESTED.COUNTd ) := 0} 
end loop} 



TOKEN. ARRAY.INDEX := 0} 

PLACE.HOLDER.INDEX ;= 0} 

TOTAL.LINES.INPUT := 0} 

C0MMENT.C0UNT : = 0 } 

CURRENT.NESTING.LEVEL := 0} 
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MAXIMUM_NESTING_LE VE L 


: = 


0\ 


NESTING_LINE_NUMBER 


: = 


o> 


FIRST_TIME_LOAD 


. 2 


TRUE > 


FULL 


: = 


FALSE $ 


NESTED_LEVEL_INCREASE 


: = 


TRUE \ 


end RESET_PARAMETERS * 






end DISPLAY_SUPPORT s 
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--*************************************************************** — 



TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 



GENERAL_DATA 
14 OCT 86 
03 DEC 86 



AUTHORS: 



LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedure to display — 

the comment count and nesting level metric data. 



— *************************************************************** — 



with DISPLAY^ SUPPORT , HALSTEAD_METRIC , 8YPASS_SUPP0RT_FUNCTI0NS , GLOBAL_PARSER , 
GLOBAL, TEXT_IO ; 

use DISPLAY_SUPPORT, HALSTEAD_METRIC , BYPASS_SUPPORT_FUNCTIONS , GLOBAL.PARSER , 
GLOBAL, TEXT_IO ; 

package GENERAL_DATA is 

package NEW_INTEGER_IO is new TEXT_IO . INTEGER_IOt integer); 
use NEW_INTEGER_IO ; 

package REAL_I0 is new TEXT_I0 . FL0AT_I0t float ) ; 
use REAL_I0; 

procedure VIEW_GENERAL ; 
end GENERAL_DATA » 



package body GENERAL_DATA is 

— this procedure computes the percentage of comments to total lines of the 
input file, and makes recommendations based on that percentage. It also 
displays what nesting constructs were utilized, and the count of each 
nesting level attained up to the maximum nesting level reached, 
procedure VIEW_GENERAL is 
RESULT : float; 

HOLD_CHARACTER : character; 

COUNT, NEST : integer; 
begin 

GET_FILENAMEt TYPE_PRESENT ) ; 

CLEARSCREEN; 

open( DATA_FILE2, in_file, DATA_FILE_NAME & ".misc"); 

CONVE RT_UPP E R_CASE ( DATA_FILE_NAME , DATA_FILE_SIZE ); 
putt " " ); 

put ( "Comment count data for file ** 
putt ADJUST_LEXEMEl DATA_FI LE_NAME , DATA_FILE_SIZE ) ) ; 
putt" **"); 
new_line ; 

putt" 

new_line( 2 ) ; 

put ( ADJUST_EDIT_BUFFER( "Total number of lines parsed", 28)); 
get ( DAT A_FI LE 2 , TOTAL_LINES_INPUT , 5); 
putt TOTAL_LINES_INPUT , 5); 
new_line ; 

put ( ADJUST_EDIT_BUFFERt "Total number of comment lines parsed" > 36)); 
gett DATA_FILE2, C0MMENT_C0UNT > 5); 
putt C0MMENT_C0UNT , 5); 
new_line; 

get_linet DATA_FILE2> DUMMY_FILE_NAME , LENGTH_OF_LINE ) ; 

RESULT := t float ( C0MMENT_C0UNT ) / float ( TOTAL_LINES_INPUT ) ) * 100.0; 
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putt ADJUST_EDIT_BUFFER( "Percentage of comments in the file", 34))* 
put (RESULT, 5, 1, Olj 
new_line( 2 ) * 

put( "======================================================================" ) j 

new_line( Z ) * 

if (RESULT >= 0,0) and (RESULT < 20.0) then 

put( "There is a low percentage of comments to the total")* 
new_line * 

putf'number of lines in the file. Unless utilization of")* 
new_line * 

put( "Ada's extensive variable identification has been" )* 
new_line * 

put( "applied, there may be too few comments for adequate")', 
new_line* 

put( "reader comprehension . " )* 
new_line * 

els if (RESULT >= 20.0) and (RESULT < 50.0) "hen 

put( "There is a reasonable numoer of comments to the" ) 5 
new_line * 

put( "total number of lines in the x ile. This could heip")* 
new_line * 

put( "a reader get a good understanding of the program." )* 
new_line * 

els if ( RESULT >= 50.0) and (RESULT < 35.0) then 

putt " T here is a fairly high percentage of comments to the" ) * 
new_line * 

put( "total number of lines in the file. ^his could help")* 
new_line * 

putt "the reader get a good understanding of the program," )* 
new_line* 

put("but could run the risk of ooscuring the coae in fc he")* 
new_line v 

put( "comments . " ) * new_iine* 
else 

putt "There is an extremely high oercentage of comments to" ) * 
new_line * 

putt "the total number of lines in the file. With this high")* 
new_line * 

putt "number of comments, there is possibility of obscuring")* 
new_line* 

putt "the code in the comments.")* 
new_line * 
end if* 
new_line* 

putt "It must be clearly understood, that this assessment of comment lines")* 
new_line * 

put("to lines of code is not a hard and fast rule, but a suggestion that")* 
new_line * 

putt "may enhance the understanding of the code. " ) * 
new_line( 2 ) * 

putt •’======================================================================" ) * 

new_line( 2 ) * 

putt" Enter any letter to continue ")* 

new_line * 

gett H0LD_CHARACTER ) * 

CLEARSCREEN* 
putt" ")* 

putt "Nesting level data for file ** " ) * 
putt ADJUST_LEXEME t DAT A_FI LE_NAME , DATA_FILE_SIZE ) ) * 
putt" **")* 
new_line * 

new_line( 2 ) * 

putt "DECISION TYPE UTILIZED")* new_li ne* 

putt" " ) * new_line* 

for I in IF_CONSTRUCT. .CASE_CONSTRUCT loop 
gett DAT A_FILE2, COUNT, 5)* 
if (COUNT /= 0) then 
case I is 
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when IF.CONSTRUCT => 

putt ADJUST.EDIT_BUFFER( "IF construct", 12))) 
put (COUNT, 5)) new.line; 
when LOOP.CONSTRUCT => 

put( ADJUST_EDIT_BUFFER( "LOOP construct", 14)); 
put (COUNT, 5)) new.line; 
when WHI LE.CONSTRUCT => 

putt ADJUST.EDIT_BUFFER( "WHILE construct", 15) )\ 
put (COUNT, 5); new.line; 
when FOR.CONSTRUCT => 

putt ADJUST_EDIT_BUFFER( "FOR construct", 13))) 
put (COUNT, 5)*, new.line; 
when CASE .CONSTRUCT => 

putt ADJUST.H0IT_3UFFER( "CASE construct", 14) )\ 
putt COUNT, 5); new_Line; 
when others -> null; 
end case; 
end if; 
and loop ; 
new_line ; 



get.linet DATA.FILE2 , DUMMY. FILENAME , LENGTH.OF.LINE); 

get ( DATA. FILE2 , MAXIMUM.NESTING.LEVEL , 5); 

get.linet DATA. FILE 2 , DUMMY.F ILE.NAME , LENGTH.OF.LINE ) V 

get( DATA.FILE2 , NESTING.LINE.NUMBER , 5); 

get.linet DATA.FILE2, DUMMY. r ILE.NAME , LENGTH.OF.LINE ) ; 

put( ADJUST_EDIT_SUFFER( "Maximum nesting level", 21)); 
out ( MAXIMUM.NESTING.LEVEL , 5 ) ; 
new.line ; 

put( ADJUST. EDIT_3UFFER( "Ini tial occurence line numoer ’ , 2 ?)); 
putt NESTING.LINE.NUMBER, 5); 
new.linet 2 ) ; 

for I in FIRST.LEVEL.NEST. .MAXIMUM.NESTING.LEVEL loop 
get( DATA.FILE2 , NEST, 5U 

putt "Total nesting "); put(I, 2); putt" deep occured" ) ; 
put (NEST, 3); putt" times.")) new.line) 
end loop; 
new.line ( 2 ) ) 

putt" Enter any letter to continue ")) 

new.line ; 

gett HOLD.CHARACTER ) ; 

get_line( DATA.FILE2, DUMMY.FILE.NAME , LENGTH.OF.LINE); 

close( DATA.FILE2 ) ) 
end VIEH.GENERAL) 

end GENERAL.DATA ; 
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— *************************************************************** — 



-- TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: PACKAGE GET_NEXT_CHARACTER 

— DATE CREATED: 13 JUN 86 

— LAST MODIFIED: 04 NOV 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedures which 

fills the buffer from the input file and returns the 
the next character from the buffer when called. 



— *************************************************************** — 



with GLOBAL, TEXT_I0> 
use GLOBAL, TEXT_IO> 

package GET_NEXT_CHARACTER is 

procedure GETNEXTCHARACTERl NEXT^CHARACTER , LOOKAHEAD_ONE_CHARACTER : 

out character)* 

procedure FILL_BUFFER( INPUT_LINE : out INPUT_CODE_LINE ) * 
end GET_NEXT_CHARACTER * 



package body GET_NEXT_CH ARACTE R is 

— this procedure gets the next character to be manipulated in 
the creation of each token 

procedure GETNEXTCHARACTERl NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER : 

out character) is 



— if the last character is read from the input buffer then it is 
time to refill the buffer, and reset the index variables 

begin 

if NEXT_BUFFER_INDEX = REFILL_BUFFER_INDEX then 
FILL_BUFFER( INPUT_LINE ) * 

CURRENT_BUFFER_INDEX := 0* 

NEXT_BUFFER_INDEX := 1* 
end if* 

if NEXT_BUFFER_INDEX = INPUT_LINE_SIZE then 
LOOKAHEAD_ONE_CHARACTER := ASCII. CR* 
else 

L00KAHEAD_0NE_CHARACTER := INPUT_LINE( NEXT_BUFFER_INDEX +1)* 
end if* 

NEXT_CHARACTER := INPUT_LINE ( NEXT_BUFFER_INDEX ) * 
CURRENT_BUFFER_INDEX := NEXT_BUFFER_INDEX > 

NEXT_BUFFER_INDEX := NEXT_BUFFER_INDEX + 1* 
end GETNEXTCHARACTER* 



procedure FILL_BUFFER( INPUT_LINE : out INPUT_C0DE J.INE ) is 
begin 

for i in 1 . . INPUT_LINE_SIZE loop — reset the input buffer to ail $'s 
INPUT_LINE ( i ) := '$’* 
end loop * 

get_line(TEST_FILE, INPUT_LINE, INPUT_LINE_SIZE )> 

TOTAL_LINES_INPUT := TOTAL_LINES_INPUT + 1* 

REFILL_BUFFER_INDEX := INPUT_LINE_SIZE +1* 
end FILL^BUFFER* 

end GET__NEXT_CHARACTER* 
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— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 



PACKAGE GLOBAL 
13 JUN 86 
16 OCT 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



— DESCRIPTION: This package contains all the global type, 

— subtype, and variable declarations. 

— *************************************************************** — 



with TEXT_IO \ 

package NEW_INTEGER_IO is new TEXT_IO . INTEGER_IO( integer ) \ 



with TEXT.IO, NEW_INTEGER_IO \ 
use TEXT_IO , NEW_INTEGER_IO \ 

package GLOBAL is 

LINESIZE : constant integer := 100 \ 

— Ada token classes — 

type TOKEN is (IDENTIFIER, SEPARATOR, NUMERIC_LIT > DELIMITER, COMMENT, 

CHARACTER.LIT, STRING_LIT , ILLEGAL)*, 

— record to hold the token built up by the scanner, the value is the 

token's position ( POS ) in the token list, the lexeme is the actual 
string for that particular token 
type TOKEN_RECORD_TYPE is 
record 

TOKEN_TYPE : TOKEN* 

TOKEN_VALUE : integer* 

LEXEME : string( 1 .. LINESIZE ) * 

LEXEME_SIZE : natural* 
end record* 

— this array is the input buffer, it holds each line of code when 

read from the input file 
subtype INPUT_CODE_LINE is s tring( 1 .. LINESIZE ) * 

subtype UPPER_CASE_LETTER is character range , A , .* , Z I * 
subtype LOWER_CASE_LETTER is character range , a , .. , z l * 
subtype UPPER_CASE_HEX is UPPER_CASE_LETTER range 1 A ' . . ’ F ' * 
subtype LOWER_CASE_HEX is LOWER_CASE_LETTER range 'a’.^f'* 

subtype DIGITS_TYPE is character range , 0 , .. , 9 I * 

— the following subtype declarations make use of the POS attribute 

which returns the integer value of the particular ASCII 
character argument 

— set of formators characterized by their ASCII value — 

— formators are horizontal tab, line feed, vertical tab, form feed, 

— and carraige return 
subtype FORMATORS is integer 

range character ' pos ( ASCII . HT ) . . character 1 pos ( ASCII . CR ) * 

— first set of delimiters character ized by their ASCII value — 

— delimiters are ampersand, accent mark, left paren, right paren, 

asterisk, plus sign, comma, dash, period, slash 
subtype DELIMITERl is integer 
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range cha rac ter ' pos ( ' & ‘ . cha rac ter ' pos ( ' / ' ) $ 

— second set of delimiters character ized by their ASCII value — 

— delimiters are colon, semi-colon, less than, equal, greater than 
subtype DELIMITER2 is integer 

range character ’pos ( * : * ) . .character 1 post ' > ' ) 5 

— compound delimiters whose first symbol is in second set of delimiters — 

— the entire set of compound delimiters are <=, >=, /=, **, <<> >>, =>, 

<>, .. 

subtype COMPQUND_DE LIMITER is DELIMITERS 

range character ' post 1 < ' ) . . character 1 post ' > ' ) j 



TEST_FILE, RESULT_FILS 

INPUT_rILE_MAME 

NEXT_CHARACTER 

LOOKAHEAD_ONE_CHARACTER 

CURRENT_BUFFER_INDEX 

NEXT_3UFFER_INDEX 

TOKEN_RECORD 

INPUT_LINE 

TOTAL_LINES_INPUT 

REFILL_BUFFER_INDEX 



f ile_type * 

string! 1 . . LINESI2E 3 l 
character •> 
character \ 
integer s 
integer 0; 
T0KEN_REC0RD _TYPE •> 
INPLTT_CODE_LINE J 
integer := 0* 
natural := 0i 



LEXEME_LENGTH, INPUT _UNE_SIZE : naturals 
TOKEN.CLASS : ^OKEN) 



procedure ERROR.MESSAGE ( TOKEN _CLAS3 : in out TOKEN ) \ 
SCANNER_cRRGR : exception \ 

end GLOBAL » 



package body GLOBAL is 



— procedure called when an error is detected by any of the token class 

— routines, an integer value is passed identifying which routine called 
this procedure, and the SCANNER_ERROR exception is raised. 

procedure ERR0R_MESSAGE( T0KEN_CLASS : in out TOKEN) is 
SCANNER_ERROR_VALUE : integer > 
begin 

SCANNER_ERROR_VALUE := TOKEN 1 post T0KEN_C LASS ) $ 
case SC ANNE R_E RR0R_VA LUE is 



when 
when 
when 
when 
when 
when 
when 6 



= > 
= > 
= > 
= > 
= > 
= > 
= > 



putt RESULT_FILE , "Illegal identifier at line number " ) $ 
putt RESULT_FILE , "Illegal separator at line number " ) } 
put ( RESULT_FILE , "Illegal numeric literal at line number ")$ 
putt RESULT_FILE , "Illegal delimiter at line number " ) 5 
putt RESULT_FILE , "Illegal comment at line number ")} 
putt RESULT_FILE, "Illegal character literal at line number ")j 
putt RESULT_FILE , "Illegal string literal at line number ")} 
"Illegal first character at line number ")* 



putt RESULT_FILE , 
null j 



when 7 

when others => 
end case) 

put ( RESULT_FILE , TOTAL_LINES_INPUT ) $ 
new_l inet RESULT_FI LE ) > 



raise SCANNER_ERROR j 
end ERROR_MESSAGE i 



end GLOBAL j 
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— ***************************************************************- 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: PACKAGE GLOBAL_PARSER 

— DATE CREATED: 17 JUL 86 

— LAST MODIFIED: 03 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



— DESCRIPTION: This package contains the global variables 

used by the parser and metric. It also contains all 
of the declarations of the reserved words and reserved 
symbols recognized by the language. 

-_.#******* *************************-******************************- 



with GLOBAL, TEXT _I0 > 
use GLOBAL, TEXT _IO ; 

package GL0BAL_PARSER is 



TOKEN_ARRAY_SIZE 

cDIT_UNE_SIZE 

TOKEN_IDENTIFIER 

TOKEN_NUMERIC. LITERAL 

T QKEN_CHARAC7ER_LI7ERAL 

7QKEN_3TRING_LITERAL 

TOKEN.END 

T0KEN3EGIN 

T0KEN_IF 

TOKEN_THEN 

TCKEN_ELSIF 

T0KcN_EL$E 

TOKEN_WHILE 

T0KEN_L00P 

TOKEN_CASE 

TOKEN_WHEN 

TOKEN_DECLARE 

T0KEN_FQR 

T0KEN_ OTHERS 

TOKEN_RETURN 

T0KEN_EXIT 

T0KEN_PR0CEDURE 

T0KEN_ FUNCTION 

T0KEN_WITH 

TOKEN.USE 

TOKEN.PACKAGE 

TOKEN.BODY 

TOKEN.RANGE 

T0KEN_IN 

T0KEN_0UT 

T0KEN_SUBTYPE 

TOKEN_TYPE 

T0KEN_IS 

TOKEN.NULL 

TOKEN_ACCESS 

TOKEN_ARRAY 

TOKEN.DIGITS 

TOKEN_DELTA 

TOKEN_RECORD_STRUCTURE 

TOKEN_CQNSTANT 

TOKEN_NEW 

TOKEN.EXCEPTION 

TOKEN.RENAMES 

TOKEN_PRIVATE 

TOKEN_LIMITED 



: constant integer 


: - SO i 


: constant integer 


SO* 


constant integer 


= 1; 


constant integer 


= 2*, 


constant integer 


— 7 . 

~ -> > 


constant integer 


- *+ \ 


constant integer 


" Sy 


constant integer 


- 6 y 


constant integer 


~ 7 y 


constant integer 


- 8; 


constant integer 


= 


constant integer 


= 10; 


constant integer 


= 11; 


constant integer 


= 12; 


constant integer 


= 13 ; 


constant integer 


= 14; 


constant integer 


= 15; 


constant integer 


= 16 ; 


constant integer 


= 17; 


constant integer 


= 18; 


constant integer 


= 19; 


constant integer 


= 20; 


constant integer 


= 21; 


constant integer 


= 22; 


constant integer 


= 23; 


constant integer 


= 24; 


constant integer 


= 25; 


constant integer 


= 26; 


constant integer 


= 27; 


constant integer 


= 28; 


constant integer 


= 29; 


constant integer 


= 30; 


constant integer 


= 31; 


constant integer 


= 32; 


constant integer 


= 33; 


constant integer 


= 34; 


constant integer 


= 35; 


constant integer 


= 36; 


constant integer 


= 37; 


constant integer 


= 38; 


constant integer 


= 39; 


constant integer 


= 40; 


constant integer 


= 41; 


constant integer 


= 42; 


constant integer 


= 43; 



68 



TOKEN_TASK 

TOKEN_ENTRY 

TOKEN_ACCEPT 

TOKEN_DELAY 

TOKEN_SELECT 

TOKEN_TERMINATE 

TOKEN_ABORT 

TOKEN_SEPARATE 

TOKEN_RAISE 

TOKEN.GENERIC 

TOKEN_AT 

TOKEN_RE VERSE 

TOKEN.DO 

TOKEN_GOTO 

TOKEN_OF 

TOKEN_ALL 

TOKEN_PRAGMA 

TOKEN_AND 

TOKEN_OR 

TOKEN_NOT 

TOKEN_XOR 

TOKEN_MOD 

TOKEN_REM 

TOKEN_ ABSOLUTE 

TOKEN_ASTERISK 

TOKEN_SLASH 

TOKEN.EXPONENT 

TOKEN_PLUS 

TOKEN_MINUS 

TOKEN_ AMPERSAND 

TOKEN_EQUALS 

TOKEN_NOT_EGUALS 

TOKEN_LESS_THAN 

TOKEN_LESS_THAN_EQUALS 

TOKEN_GREATER_THAN 

TOKEN_GREATER_THAN_EQUALS 

TOKEN_ASSIGNMENT 

TOKEN_SEMICOLON 

TOKEN_PERIOD 

TGKEN_LEFT_PAREN 

TOKEN_RIGHT_PAREN 

TOKEN_COLON 

TOKEN_COMMA 

TOKEN_APOSTROPHE 

TOKEN_RANGE_DOTS 

TOKEN_ARROW 

TOKEN.BAR 

TOKEN_BRACKETS 

token_left_bracket 

token_right_bracket 

type TOKEN_RECORD_BUFFER_ARRAY i 
array ( 0. .TOKEN_ARRAY_SIZE ) 



constant 


integer 


: = 


44* 


constant 


integer 


: = 


45* 


constant 


integer 


: = 


46* 


constant 


integer 


: s 


47* 


constant 


integer 


: = 


48* 


constant 


integer 


: s 


49* 


constant 


integer 


: = 


50* 


constant 


integer 


: = 


51* 


constant 


integer 


: = 


52* 


constant 


integer 


: = 


53* 


constant 


integer 


: = 


54* 


constant 


integer 


: = 


55* 


constant 


integer 


: = 


56* 


constant 


integer 


: = 


57* 


constant 


integer 


: = 


58* 


constant 


integer 


: = 


59 ; 


constant 


integer 


: = 


60* 


constant 


integer 


: = 


61* 


constant 


integer 


: = 


62* 


constant 


integer 


: = 


63* 


constant 


integer 


: = 


64* 


constant 


integer 


: = 


65* 


constant 


integer 


: s 


66* 


constant 


integer 


; = 


67* 


cons tant 


integer 


; = 


o8i 


constant 


integer 


; = 


69* 


cons tant 


integer 


: = 


70* 


constant 


integer 


: = 


71* 


constant 


integer 


: s 


72* 


constant 


integer 


: = 


73* 


constant 


integer 


: - 


74* 


constant 


integer 


: = 


75* 


constant 


integer 


: s 


76* 


constant 


integer 


: = 


77* 


constant 


integer 


: = 


78* 


constant 


integer 


: = 


79* 


constant 


integer 


; s 


80* 


constant 


integer 


: = 


81* 


constant 


integer 


: = 


82* 


constant 


integer 


: = 


83* 


constant 


integer 


: s 


84* 


constant 


integer 


: = 


85* 


constant 


integer 


; = 


86* 


constant 


integer 


: = 


87* 


constant 


integer 


: = 


88* 


constant 


integer 


: = 


89* 


constant 


integer 


: = 


90* 


constant 


integer 


: = 


91* 


constant 


integer 


: s 


92* 


constant 


integer 


: = 


93* 



of TQKEN_RECORD_TYPE * 



TOKEN_RECORD_BUFFER 

CURRENT_TOKEN_RECORD 

LOOK_AHEAD_TOKEN 



TOKEN_RECORD_BUFFER_ARRAY * 
TOKEN_RECORD_TYPE * 
TOKEN_RECORD_TYPE * 



TOKEN_ARRAY_INDEX 
LENGTH_OF_LINE 
PLACE_HOLDER_INDEX 
COMMENT _C0UNT 
DATA_FILE_SIZE 
ST ATUS_COUNTER 



: integer := 0* 
: integer := 0* 
: integer := 0* 
: integer := 0* 
: integer := 0* 
: integer := 0* 



FULL 

FINISHED 



boolean := FALSE* 
boolean := FALSE* 
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RESERVE_WORD_TEST 

FIRST_TIME_LOAD 

PROCEDURE_TEST 

ERROR 

TYPE_PRESENT 

DECLARATION 



boolean := FALSE * 
boolean := TRUE * 
boolean := FALSE* 
boolean := FALSE* 
boolean := FALSE* 
boolean * 



TEST_FILE_NAME 

DATA_FILE_NAME 

DUMMY_FILE_NAME 

EDIT_3UFFER 



stringd. . LINESIZE ) * 
string! 1. .LINESIZE )* 
stringd. .LINESIZE )* 



string! 1. . EDIT_LINE_SIZE )* 



ANSWER 

DATA_FILE1> DATA_FILE2 
DATA_FILE3> DATA_FILE4 
PARSER_ERROR 
QUIT_TO_OS 



character * 
i ile_type * 
f ile_type * 
exception * 
exception* 



procedure CLEARSCREEN* ■ 

procedure SYNTAX_ERROR! ERROR.MESSAGE : string)* 
end GLOBAL_PARSER * 



package body GLOBAL_PARSER is 

procedure CLEARSCREEN is 
begin 

put! ASCII. ESC l "CJ")* 
end CLEARSCREEN* 



procedure SYNTAX_ERROR( ERROR_MESSAGE : string) is 
begin 

put ( "Incomplete " ) * 
put! ERROR_MESSAGE ) * 
put!" at line number")* 

put! RESULT_FILE > "Incomplete " ) * 
put! RESULT_FILE > ERROR_MESSAGE ) * 
put! RESULT_FILE > " at line number")* 

raise PARSER_ERROR * 
end SYNTAX_ERROR * 

end GLOBAL.PARSER* 
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— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: HALSTEAD .DISPLAY 

— DATE CREATED: 11 OCT 86 

— LAST MODIFIED: 03 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains all of the procedures 

and functions necessary to implement Halstead's length 
metric. 



--*************************************************************** — 



with QISPLAY.SUPPORT, HALSTEAD ^METRIC > 3YPASS.SUPP0RT.FUNCTIQNS , GLOBAL.PARSER , 
GLOBAL, TEXT.IO* 

use DISPLAY.SUPPQRT > HALSTEAD.METRIC , 3YPASS.SUPP0RT.FUNCTI0NS , GLOBAL.PARSER , 
GLOBAL, TEXT.IO * 

package HALSTEAD_DISPLAY is 

package NEW.INTEGER.IO is new TEXT.IO . INTEGER.IOf integer )* 
use NEW.INTEGER.I05 

package REAL.IO is new TEXT. 10 . FL0AT.101 float ) * 
use REAL.IO* 

procedure HALSTEAD* 
procedure VIEW.GPERATORS » 
procedure OPERAND .MENU* 
procedure VIEW_SC0PE .STRUCTURES * 
procedure VIEH.VARIABLES * 
procedure VIEH.3LQCKS* 
procedure METRIC.CONCLUSIONS * 
function L0G2( NUMBER : float) return float* 
function NATURAL_L0G( NUMBER : float) return float* 
end HALSTEAD. DISPLAY * 



package body HALSTEAD.DI SPLAY is 



— this procedure provides a menu of selections for viewing Halstead's 
length metric data. It also loads the symbol table array, 
procedure HALSTEAD is 

DONE : boolean := FALSE* 

DUMMY_LINE_LENGTH : integer* 

LEXEME.NAME : string* 1 . . LINESIZE ) * 
begin 

GET. FILENAME ( TYPE.PRESENT ) * 
while not (DONE) loop 
CLEARSCREEN* 
new. line* 

put( "********************************************************" ) * 
put ( "***********************" ) * new.line * 
put ( "* 

*")* new.line* 

HALSTEAD SELECTION MENU 
*")* new.line* 



put!" 
put( "* 
put ( " 
put ( "* 
put ( " 
put( "* 
put ( " 
put ( "* 
putC'LE TO 
put( "* 



YOU 



")* 
")* 
")* 
")* 

*" )* new.line* 

HERE ARE THE HALSTEAD METRIC OPTIONS AVAILAB" ) * 
*")* new.line* 

")* 



*")* new.line* 
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putt " 


*" 3 $ new_line* 




putt "* 


Simply enter the number of your 


choice" 3 * 


putt " 


*" 3 v new_line> 




putt "* 




"3* 


putt" 


*" 3 * new_ lines 




putt "* 


1 - HALSTEAD OPERATORS 


"3* 


putt" 


*" 3 * new_line* 




putt "* 




"3* 


putt" 


*" 3* new_line* 




putt "* 


2 - HALSTEAD OPERANDS 


H n 


putt" 


*")* new_line* 




putt"* 




"3* 


putt" 


*" 3* new_line* 




putt "* 


3 - HALSTEAD METRIC CONCLUSIONS 


"3* 


putt " 


*"3* new__line* 




putt "* 




"3* 


putt " 


*" 3* new^line* 




putt "* 


<+ - EXIT TO METRIC SELECTION MENU 


"3* 


putt " 


*" 3 * new^line* 




putt "* 




' 3 V 


putt" 


*" 3 * new_line; 




put ( "* 


5 - EXIT TO OPERATING SYSTEM 


" 3 v 


putt" 


*" 3* new_line* 




putt "x 




" 3* 


putt " 


*" 3 * new_line* 





putt ''S**^*****************^'' ) 5, new_linet Z 3 v 
putt "Choice = " > > 
get ( ANSWER 1 > 

get_line( DUMMY_FILE _NAME » QUMMY_LINE_LENGTH 3 \ — flusn system input 



-- load the symool table array -- 
spent DATA_rILE3, in^-ile, OATA_FILE_NAME 3 " . rand" 3 t 
gett DATA_FILE3> LAST_ENTRY_INDEX > 53 v 
gett DATA_FILE3, TOTAL_QPERAND_COUNT > 51% 
get_linetDATA_FILE3> DUMMY__FILE_NAME > LENGTH_OF__LINE 3 ) 
for I in 0 . . LAST__ENTRY_INDEX-1 loop 

get(DATA_FILE3, SYMBOL_TABLE< I 3 . SCOPE , 5)> 
get ( DATA_FILE3 > SYMBOL_TABLE ( I 3 . REFERENCE , 5)> 
get(DATA_FILE3, SYMBOL_TABLE( I 3 . DECLARATION_TYPE , 5)> 
get__line( DATA_FILE3 , LEXEME_NAME > LENGTH__OF_LINE 3 S 
NEH_NODE := new OPERAND_TYPE v 
NEW__NODE . OPERAND := LEXEME_NAME v 
NEH_NODE . SIZE := LENGTH__OF__LINE v 
NEH_NODE.NEXT_OPERAND := null* 

SYMBOL_T ABLE 1 1 3 . LEXEME_ADDRESS := NEH__NODE ) 
end loop v 

closet DATA_FILE3 3 > 



new_linet Z 3 v 
case ANSWER is 
when 'l 1 => 
when ' 2 * = > 
when ' 3 * => 
when '<+' => 
when '5* => 
when others 
end case) 
end loopv 
end HALSTEAD * 



VIEW_OPERATORSv 
OPERAND_MENU> 
METRIC_CONCLUSIONS j 
DONE := TRUE * 
raise QUIT__TO__OSv 
=> null* 



bi 



— this procedure displays 
procedure VIEW__OPERATORS is 
DONE 

OCCURENCES, OPERATORS_USED 

HOLD__CHARACTER 

LEXEME__NAME 



the Halstead operator metric data. 

: boolean* 

: integer := 0* 

: character* 

: stringt 1. .LINESIZE 3* 
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begin 

CLEARSCREEN) 

open(DATA_FILEl, in_file, D ATA_FILE_NAME & ".data")) 

putt "********************************************************" ) ) 

putt M ***********************" ) ) new_line( 2 ) ) 



CONVERT_JJPPER_C ASE ( DAT A_FI LE_NAME , DATA_FILE_SI2E 1 5 
putt" Operator data for file ** ")) 

put ( ADJUST_LEXEME ( DATA_FILE_NAME , DATA_FILE_SI2E ) )) 
put(" **" )) new_line(2)) 

put ("OPERATOR UTILI2ED" ) ) new_line) 

putt " " ) ) new__line) 



for I in TOKEN_AND. . TOKEN_ASSIGNMENT loop 
get ( DATA_FILE1 > OCCURENCES ) ) 
if (OCCURENCES /= 0) then 
case I is 

when T0KEN_AND => 

put ( ADJUST_EDIT_BUFFER( "Boolean 'AND’", 13 m 
when T0KEN_0R => 

putt ADJUST_EDIT_BUFFERt "Boolean 'OR'", 12))) 
when T0KEN_N0T => 

putt ADJUST_EDIT_BUFFER( "Boolean 'NOT 1 ", 13 m 



when T0KEN_X0R => 

putt ADJUST_EDIT_BUFFERt "Boolean 'X0R ,M , 131)5 
when T0KEN_M0D => 

putt ADJUST_EDXT_BUFFER( "Modulus 'MOD'", 13))) 
when T0KEN_REM => 

putt ADJUST_EDIT_BUFFER( "Remainder ■ REM ' " , 15))) 
when TOKEN.ABSOLUTE => 

putt ADJUST_EDXT_BUFFER( "Absolute Value 'ABS'", 20))) 
when TOKEN_ASTERISK => 

putt ADJUST_EDIT_BUFFER( "Multiplication 18))) 

when TOKEN_SLASH => 

putt ADJUST_EDIT_BUFFER( "Division V", 12))) 
when T0KEN_EXP0NENT => 

putt ADJUST_EDIT_BUFFER( "Exponentiation 19))) 



when TOKEN_PLUS => 

putt ADJUST_EDIT__BUFFER( "Addition ’ + 12))) 

when TOKEN_MINUS => 

putt ADJUST__EDIT_BUFFER( "Subtraction ' - * " , 15))) 
when TOKEN_AMPERSAND => 

putt ADJUST_EDIT_BUFFER( "Catenation 14))) 

when TOKEN_EQUALS => 

putt ADJUST_EDIT_BUFFER( "Equality ' = 12))) 

when TOKEN_NOT_EQUALS => 

putt ADJUST_EDIT_BUFFER( "Inequality '/=*", 15))) 
when TOKEN_LESS_THAN => 

putt ADJUST_EDIT_BUFFER( "Less Than 13))) 

when TOKEN_LESS_THAN_EQUALS => 

putt ADJUST_EDIT_BUFFER( "Less Than Equals 21))) 



when TOKEN_GREATER_THAN => 

putt ADJUST_EDIT_BUFFER( "Greater Than •>•% 16))) 
when TOKEN_GREATER_THAN_EQUALS => 

putt ADJUST_EDIT_BUFFER( "Greater Than Equals 24))) 

when TOKEN.ASSIGNMENT => 

putt ADJUST_EDIT_BUFFER( "Assignment 15))) 



when others 



=> null) 



end case) 



putt 0CCURENCES>5 ) ) 
new_line) 

end if) — if occurences /= 0 



end loop) 

get_line<DATA_FILEl> DUMMY_FILE_NAME , LENGTH_OF_LINE ) ) 



for I in IF_CONSTRUCT . . CASE_CCNSTRUCT loop 
get t DATA_FILE1 » OCCURENCES, 5)) 
if (OCCURENCES /= 0) then 
case I is 
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when IF_CONSTRUCT => 

put( ADJUST_EDIT_BUFFER( "IF construct", 12 m 
when LOOP.CONSTRUCT => 

putt ADJUST_EDIT_BUFFER( "LOOP construct", 14))* 
when WHI LE_CONSTRUCT => 

putt ADJUST_EDIT_BUFFER( "WHILE construct", 15 ) ) * 
when FOR_CONSTRUCT => 

put( ADJUST_EDIT_BUFFER( "FOR construct", 13 ) ) * 
when CASE_CONSTRUCT => 

put( ADJUST_EDIT_BUFFER( "CASE construct", 14 ) ) * 
when others => null* 
end case*, 

put( OCCURENCES, 5)* new_line* 
end if*, 
end loop* 

new_line * 

putt ADJUST_EDIT_3UFFER( "Number of individual operators used", 35))* 
get(DATA_FILEl, OPERATORS_USED ) * 
put( OPERATORS_USED , 5)* 
new_line* 

put( ADJUST_EDIT_BUFrER( "Total number of occurences", 26))* 

get( DATA_FILE1 , OCCURENCES)* 

put (OCCURENCES, 5)* 

new_line( 2 ) * 

closet DATA.FILED* 

put(" Enter any letter to continue ")* 

new_line * 

get( HOLD_CHARACTER ) * 
end VIEH_OPERATORS* 



— this procedure provides a menu of selections for viewing the 
Halstead operand metric data, 
procedure OPERAND_MENU is 
DONE : boolean := FALSE* 

DUMMY_LINE_LENGTH : integer* 
begin 

while not (DONE) loop 
CLEARSCREEN* 
new_line* 

putt "********************************************************" ) * 
put ( "***********************" ) * new_l ine * 



put ( "* 


")* 


putt" 


*" ) * new_line* 


putt"* 


HALSTEAD OPERAND SELECTION MENU ")* 


putt" 


*" ) * new line* 


putt"* 


")* 


putt" 


*" ) * new line* 


putt "* 


")* 


putt " 


*" ) * new_line* 


putt"* 


HERE IS THE OPERAND DATA AVAILABLE")* 


putt " 


*")* new_line * 


putt "* 


")* 


putt" 


*" ) * new_line* 


putt"* 


Simply enter the number of your choice")* 


putt " 


*" ) * new_line* 


putt "* 


")* 


putt " 


*" ) * new_line* 


putt "* 


1 - PROCEDURE, FUNCTION, PACKAGE INFORMATI" ) * 


putt "ON 


*" ) * new line* 


putt "* 


")* 


putt " 


*")* new_line* 


putt"* 


2 - VARIABLES AND CONSTANTS INFORMATION ")* 


putt " 


*" ) * new_line* 


putt "* 


")* 


putt" 


*")* new_line* 
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putt "* 


3 - TASKS AND BLOCKS INFORMATION 


")} 


put ( " 


*" ) } new_line} 




putt"* 




")} 


putt" 


*")} new_line } 




putt "* 


<+ - EXIT TO HALSTEAD SELECTION MENU 


")} 


putt " 


*")} new_line} 




putt "* 




")} 


putt " 


*")} new_line} 




putt "* 


5 - EXIT TO OPERATING SYSTEM 


")} 


putt" 


*")} new_line} 




putt "* 




*')} 


putt" 


*")} new_line} 





put( "********************************************************" ) \ 
putt "a***************-*******" ) ; new_line( Z ) } 
putt "Choice - ” ) } 
get ( ANSHER ) } 

get_Iinei DUMMY_FILE_NAME , QUMMY_LINE_LENGTH ) } ~ flush system input 



new_linet 2 ) } 
case ANSWER is 
when '1' = > 
when '2' => 
when '3* => 
when '4' => 
when 'S' => 
when others 
end case } 
end loop } 
end QPERAND_MENU} 



7IEW_SC0PE_STRUC7URES } 

VIEWJ/ARIABLES} 

VIEW_BLOCKS> 

DONE := TRUE } 
raise GUIT_TO_QS} 

=> null} 



butter 



— this procedure displays the Halstead operand metric aata for 

— packages , proceaures, and functions, 
procedure VIEW_SC0PE_STRUC7URES is 

SCREEN_COUNTER : integer := 0} 

NAME : string( 1 . . LINESIZE ) } 

SIZE, COUNT : integer} 

HOLD_CHARACTER : character } 
begin 

CLEARSCREEN} 

put ( "********************************************************" ) } 
put( "***********************" ) $ new_line( 2 ) } 

CONVERT__UPPER_CASE t DATA_FILE_NAME > DATA_FILE_SIZE )} 
for DECLARE_TYPE in PACKAGE_DECLARE . . FUNCTION_DECLARE loop 
case DECLARE_TYPE is 

when PACKAGE_DE CLARE => 

put( " PACKAGES for file - ")} 
when PROCEDURE_DECLARE => 

put( " PROCEDURES for file - ")} 
when FUNCTION_DECLARE => 

put(" FUNCTIONS for file - ")} 
when others => null* 

end case} 

putt ADJUST^LEXEME ( DATA_FILE_NAME , DATA_FILE_SIZE ) ) } new_linet2)} 



putt "NAME REFERENCED")} new_line} 

putt" ")} new_line} 



for I in 0 . A LAST_ENTRY_INDEX-1 ) loop 

NAME := SYMBOL_TABLE ( I ) . LEXEME_ADDRESS . OPERAND } 

SIZE : = SYMB0L_T ABLE ( I ) . LEXEME_ADDRESS . SIZE } 

COUNT := SYMBOL_TABLE( I ). REFERENCE} 

if (SYMBOL_TABLE(I ) . DECLARATION_TYPE = DECLARE.TYPE ) then 
put ( ADJUST_EDIT_BUFFERt NAME , SIZE ) ) } 
putt COUNT, 5)} new_line} 

SCREEN_COUNTER := SCREEN_COUNTER + 1} 
if tSCREEN_COUNTER = 10) then 
new_linet 3 ) } 
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put!" Enter any letter to continue " ) s 

new_line s 

get! HOLD_CHARACTER ) s 
CLEARSCREENs 
SCREcN_COUNTER := Os 
case DECLARE_TYPE is 

when PACKAGE_DECLARE => 

put!" PACKAGES for file - ")s 
when PROCEOURE.DECLARE => 

put( " PROCEDURES for file - " ) s 
when FUNCTION_OECLARE => 

put ( " FUNCTIONS for file - ")s 
when others => null; 

end cases 

put ( ADJUSTJ.EXEME! OATA_FILE_NAME , QATA_FILE_SIZE ) ) * ne w.line! 2 1 s 
put ! "NAME REFERENCED" ) * 

new _ line v 

put!" "1? 

new_line s 

end if, — if screen.counter = 10 

end if* — if symbol_table! i ) . declara tion_type 

end loops — for i in 0 . . ( last_entry_index-l ) 

new_line( 2 ) s 

put!" — — Enter any letter to continue — )s 

new _ line ; 

getTHOLD^CHARACTER ) S 
CLEARSCREENs 
$CREEN_COUNTER := 0> 

end loops — for declare_type in 

end VIEH_3C0PE_3TRUCTURES s 



— this procedure displays the Halstead operand metric data for 

— variables, numeric constants, and global variables, 
procedure VIEH_VARIABLES is 



SCREEN_COUNTER 

NAME 

SIZE, COUNT 

HOLD_CHARACTER 

SKIP 

CONTINUE 

begin 



integer := Oj 
string! 1 . . LINESIZE ) s 
integers 
character s 
boolean s 
boolean s 



CLEARSCREENs 

put! "********************************************************" ) s 
put! "***********************" ) j new_line! 2 ) s 



CONVERT_UPPER_CASE! DATA_FILE_NAME , D ATA_FI LE_SIZE ) S 
for DECLARE_TYPE in VARIABLE_DECLARE . .NO_DECLARE loop 
SKIP := FALSE s 
CONTINUE := FALSE s 
case DECLARE_TYPE is 

when VARIABLE.DECLARE => 

put!" VARIABLES for file - ")s 
when CONST ANT_DECLARE => 

put!" CONSTANTS for file - ")s 
when NO_DECLARE => 

put!" GLOBAL VARIABLES for file - " ) s 
when others => nulls 

end cases 

put! ADJUST_LEXEME! DATA_FILE_NAME , DATA_FILE_SIZE ) ) s new_line(2)s 

put! "NAME REFERENCED" )s new.lines 

put!" " ) S new_l ine s 

while not (SKIP) loop 

for I in 0. . ( LAST_ENTRY_INDEX-1 ) loop 

NAME := SYMB0L_T ABLE ( I ) . LEXEME_ADDRESS . OPERAND s 
SIZE := SYMB0L_T ABLE ! I ) . LEXEME_ADDRESS . SIZE s 
COUNT := SYMBOL_TABLE! I). REFERENCES 
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if ( SYMBOL_TABLE ( I ) . DECLARATION_TYPE = DECLARE_TYPE ) then 
put < AD JUST_E DIT_BUF F E R ( NAME , SIZE ) ) * 
putt COUNT, 5); new_line* 

SCREEN_CQUNTER := SCREEN_COUNTER + 1* 
if ( SCREEN_COUNTER = 10) then 
new_line( 3 ) * 

putt" Enter 'S' to stop or any other letter to")* 

put( " continue ")* 

new_line * 

get( HOLD_CHARACTER ) * 

if ( HOLD_CHARACTER = 'S') or ( HOLD_CHARACTER = 's') then 
SKIP := TRUE * 
end if* 

CLEARSCREEN * 

case DECLAREJTYPE is 

when VARIABLE_QECL ARE => 

put!" VARIABLES for file - " ) * 
when CONST ANT_DECLARE => 

put( " CONSTANTS for file - " ) * 
when NO_DECLARE => 

put(" GLOBAL VARIABLES for file - ")* 
when others => null* 

end case * 

putt ADJUST_LEXEME ( DATA_FILE_NAME , DATA_FILE_SIZE ) ) * new_line(2)* 
putt "NAME REFERENCED" ) > 

new_line > 

put ( " )* 

new_line * 

SCREEN_COUNTER := 0* 

end if* — if screen.counter = 10 

end if* — if symboi_tablei i ) .declaration_type 

if <1 = LAST_£NTRY_INDEX - 1) then 
CONTINUE := TRUE * 

end if* — if i = las t_entry_index-l 

exit when SKIP * 

end loop* — for i in 0 . .< las t_entry_ index-1 ) 

new_line* 

exit when ((SKIP) or (CONTINUE))* 
end loop* — while not skip loop 

exit when SKIP* 
new_line* 

put( " Enter any letter to continue ")* 

new_line * 

get( HOLD_CHARACTER ) * 

CLEARSCREEN* 

SCRE ENCOUNTER := 0* 



end loop* — for declare_type in 

CLEARSCREEN* 

put ( "=====================================================================" ) * 

new_line( 2 ) * 



put( ADJUST_EDIT_BUFFER( "Total number of operands used", 29))* 
putt LAST_ENTRY_INDEX - 1, 5)* new_line* 

putt ADJUST_EDIT_BUFFER( "Total number of occurences, all operands", 40))* 
putt TOT AL_OPERAND_COUNT, 5)* new_line<3)* 

putt" Enter any letter to continue ")* 

new_line * 

gett HOLD_CHARACTER ) * 
end VIEH_VARIABLES * 



— this procedure displays the Halstead operand metric data for 

— tasks, and blocks, 
procedure VIEW_BLOCKS is 

SCREEN_COUNTER : integer := 0* 

NAME : stringt 1. .LINESIZE )* 

SIZE, COUNT : integer* 

HOLD_CHARACTER : character* 
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begin 

CLEARSCREEN} 

putt "********************************************************" ) j 
putt "***********************" ) } n ew_line( 2 ) } 



CONVERT_UPPER_C ASE ( DATA_FILE_NAME , DATA_FILE_SIZE ) } 
for DECLARE.TYPE in TASK_DECLARE . .BLOCK_DECLARE loop 
case DECLARE_TYPE is 
when TASK_DECLARE => 

put ( 11 TASKS for file - ")} 
when BLOCK_DECLARE => 

putt" BLOCKS for file - ")} 
when others => null* 

end case} 

putt ADJUST_LEXEME( DAT A_FILE_NAME> DATA_FILE_SIZE ) )} new_linet2)} 

putt "NAME REFERENCED" ) } new_line} 

putt" " ) } new_ line } 



for I in 0 . . t LAST_ENTRY_INDEX-1 ) loop 

NAME := SYMBOL_TABLE 1 1 ) . LEXEME_ADORESS . OPERAND } 

SIZE := SYMBOL_TABLE( I ) . LEXEME_ADDRESS . SIZE } 

COUNT := SYMBOL_TABLE ( I ) . REFERENCE } 

if ( SYMBOL_T ABLE 1 1 ) . DECLARATION_TYPE = DECLARE_TYPE ) then 
putt ADJUST_EDIT_BUFFERt NAME > SIZE ) ) } 
puttCOUNT, 5), new_line} 

SCREEN_COUNTER := SCRSEN_COUNTER + 1} 
if (SCREEN_COUNTER = 10) then 
new. linet 3 ) } 

putt" Enter any letter to continue " )} 

new_l ine \ 

gett HOLD_CHARACTER ) } 

CLEARSCREEN } 

SC RE EN_C OUNT E R := 0} 
case DECLARE_TYPE is 

when TASK_DECLARE => 

putt" TASKS for file - ")} 
when BLOCK_DECLARE => 

putt" BLOCKS for file - " )} 
when others => null* 

end case* 

putt ADJUST_LEXEME( DATA_FILE_NAME , DATA_FILE_SIZE ))} new_line( 2)} 
putt "NAME REFERENCED" ) } 

new_line } 

putt " " )} 

new_line} 

end if} — if screen.counter = 10 

end if} — if symbol_table( i ) ,declaration_type 

end loop} -- for i in 0 . . ( last_entry_index-l ) 

new_line( 2 ) } 

putt" Enter any letter to continue ")} 

new_line } 

gett HOLD_CHARACTER ) } 

CLEARSCREEN} 

SCREEN.COUNTER := 0} 

end loop} — for declare_type in 

end VIEH_BLOCKS} 



— this procedure calculates and displays all of the variables used in 

evaluation of the Halstead length metric. The conclusions, which are 

— determined from the calculated lengths, are based on Halstead's 
observations. 

procedure METRIC_CONCLUSIONS is 
HOLD_CHARACTER : character} 

LITTLE_N1, LITTLE_N2 , BIG_N1, BIG_N2 : integer} 

LOG.RESULT, DIFFERENCE, DISPARITY : float} 

ADD_RESULT : integer} 
begin 
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CLEARSCREEN ; 

open(DATA_FILE4, in_file, DAT A_FI LE_NAME $ ".hals"); 

get! DATA_FILE4, LITTLE_N1, 5); 

get( DATA_FILE4> BIG_N1, 5); 

get( DATA_FILE4> LITTLE_N2> 5); 

get( DATA_FILE4, BIG_N2> 5 ); 

ADD_RESULT := BIG_N1 + BIG_N2; 

LOG_RESULT := ( f loa t( LITTLE_N1 ) * LOG2( float ( LITTLE_N1 )) ) ♦ 

( float! LITTLE.N2) * L0G2! float ! LITTLE.N2 ))) ; 

DIFFERENCE := LOG_RESULT - float! ADD_RESULT 1 > 

DISPARITY := DIFFERENCE / float! TOTAL_LINES_INPUT ) ; 

put! "Def ini tion of Halstead variables"); new_line; 

put!" nl - number of distinct operators"); new_line; 

put!" n2 - number of distinct operands" ) ; new_line; 

pux!" Nl - total number of occurences of operators" ) ; new_line; 

put!" N2 - total number of occurences of operands"); new_line(2); 

put! ADJUS7_EDIT_3UFFER( "' r heoret ical Length nl*log(nl) + n2*log( n2 ) ; " , 44)); 
put! LOG_RESULT > 5, 1, 0); new_line; 

put! ADJUST_EDIT_BUFFER(" Actual Length Nl + N2;"> 23)); 
put! ADD_RESULT > S); new_line(2); 

put! ADJUST_EDIT_BUFFER( "Difference between theoretical and actual" , 41)); 
put! DIFFERENCE » 5, 1, 0); new_line; 

put! ADJUST_5DIT_ BUFFER! "Dispar ity (Difference / Total_lines_input )" > 42)1; 
put! DISPARITY, 5, 1, 0); new_line(2); 



if ((DISPARITY > 0.5) and (DISPARITY <= 1.0)) then 



"A very large positive disparity. Reasons:"); new^line; 

" 1 - POSSIBILITY OF OPERANDS DECLARED 3UT NOT USED " ) ; new^line; 

There my be some variaDt.es which were declared " ) ; new_iine; 

" but never referenced in x he program" ) ; new_line; 

" 2 - USE OF GLOBAL VARIABLES."); new_line; 

" A large number of the variables referenced were "); new_line; 

M declared in the package instant ia tions by the "); new_line; 

" WITH statements."); new_line; 

(DISPARITY > 0.0) and (DISPARITY <= 0.5)) then 
"A small positive disparity. Reasons: " ) ; new_line; 

" 1 - SOME OF THE OPERANDS DECLARED HERE NOT USED " ) ; new_line; 

" There my be some variables which were declared " ) ; new_line; 

" but never referenced in the program"); new_line; 

" 2 - SOME USE OF GLOBAL VARIABLES. " ) ; new_line; 

" A large number of the variables referenced were "); new_line; 

" declared in the package instantiations by the "); new_line; 

" HITH statements."); ne w_line; 

(DISPARITY > -0.5) and (DISPARITY <= 0.0)) then 
new_line ; 

put!" Enter any character to continue " ) ; new_line; 

get! HOLD_CHARACTER ) ; 

CLEARSCREEN; 



put 

put 

put 

put 

put 

put 

put 

put 

elsif 

put 

put 

put 

put 

put 

put 

put 

put 

elsif 



put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 



"A small negative disparity. By Halstead's standards, this is "); 

"a well polished program. " ) ; new_line; 

"However there may exist any of the following: " ) ; new_line; 

" 1 - CANCELLING OF OPERATORS " ) ; new_line; 

" The occurence of an inverse cancels the effect of a " ) ; 

"previous operator."); new_line; 

" 2 - AMBIGUOUS OPERANDS " ) ; new_line; 

" Same operand represents two or more variables."); new_line; 

" 3 - SYNONYMOUS OPERANDS "); new_line; 

" Two or more operands represent the same variable."); new_line; 

" 4 - COMMON SUBEXPRESSION "); new_line; 

" The same subexpression occurs more than once. " ) ; new_line; 

" 5 - UNNECESSARY REPLACEMENTS "); new_line; 

" A subexpression is assigned to a temporary "); new_line; 

" variable which is used only once. " ) ; new_line; 

" 6 - UNFACTORED EXPRESSIONS "); new_line; 

" Repetitions of operators and operands among unfactored " ) ; 

"terms. "); new_line; 
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else 

new_line * 

put ( " Enter any character to continue ")* new_line* 

get( HOLD_CHARACTER ) * 

CLEARSCREEN * 

putt "A large negative disparity. Halstead gives six reasons: " ) * new_line* 
putt" 1 - CANCELLING OF OPERATORS " ) * new_line* 

putt" The occurence of an inverse cancels the effect of a ")* 

putt "previous operator.")) new_line* 

putt" 2 - AMBIGUOUS OPERANDS ")* new.line* 

putt" Same operand represents two or more variables.")* new_line* 

putt" 3 - SYNONYMOUS OPERANDS ")* new_line* 

putt" Two or more operands represent the same variable.")* new_linev 

putt" 4 - COMMON SUBEXPRESSION " ) * new^line* 

putt" The same subexpression occurs more zhan once. ")* new_iinev 

putt" 3 - UNNECESSARY REPLACEMENTS " ) * new_linev 

putt" A subexpression is assigned to a temporary " ) * new_iine* 

putt" variable which is used only once. ")* new_line* 

putt" 6 - UNFACTORED EXPRESSIONS " ) * new_Iinev 

putt" Repetitions of operators and operands among unfactored ")* 

putt "terms. ")* new_iine* 
end if* 
new_line * 

putt" Enter any character to continue ")* new_line* 

gett HOLD_CHARACTER ) * 
closet DATA^FILEA. ) ; 
end METRIC CONCLUSIONS* 



— this function computes the log to the oase 2 of a number by using 
natural logarithms. 

function LCG2( NUMBER : float) return float is 
X» Y : float* 
begin 

X := NATURAL_LOG( NUMBER)* 

Y := NATURAL_LOG( 2.0)* 
return t X/Y ) * 
end L0G2 * 



— this function computes the natural logarithm of a number, 
function NATURAL_L0G( NUMBER : float) return float is 
A : constant array (0..5) of float 

:= ( 0 . 68629150E + 00 > 0 . 67341785E-02 > 0 . 11894142E-03 , 

0.25009347E-05, 0 .57260501E-07, 0 . 13791205E-08 ) * 

XP, Y : float* 

M : integer* 

BO, Bl, B2 : float* 

begin 

XP := NUMBER* 
if (XP < 0.0) then 

raise DEVICE.ERROR * 
end i f * 

M := 0* 

while (XP >= 2.0) loop 
M := M + 1* 

XP := XP/2.0* 
end loop* 

Y := 3.0 * (XP - 1.0)/(XP + 1.0)* 

XP := 4.0 * Y * (Y - 2.0)* 

BO := 0.0* 

Bl := 0.0* 

for I in reverse 5..0 loop 
B2 := Bl* 

Bl := B0* 
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BO := XP * B1 - B2 + A(I)} 
end loop* 

return (float(M) * 0.69514718 + Y * (BO - B1 ) ) * 
end NATURAL_LOG> 

end HALSTEAD_DISPLAY * 



81 



— ************************************************ *************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: 

— DATE CREATED: 

— LAST MODIFIED: 



INITIAL_DISPLAY 
05 OCT 86 
03 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedures that 

introduce the metric program and manages the data 
tiles. 



— *************************************************************** — 

with DISPLAY_SUPPORT, PARSER_0, HALSTEAD_METRIC , GLOBAL_PARSER , GLOBAL, TEXT_IO* 
use DISPLAY_SUPPCRT, PARSER_0, HALSTEAD_METRIC , GLOBAL_PARSER , GLOBAL, TEXT_IO> 

package INITIAL_DISPLAY is 
procedure INITIAL_SCREENj 
procedure INTRODUCTION \ 
end INITIAL_DISPLAY \ 



package body INITIAL_DISPLAY is 



— this procedure opens all data tiles tor the input tile, starts the 

the parsing process, writes the metric data to the appropriate tiles, 

— closes the data tiles, and prompts the user tor turther input tiles 
to parse. 

procedure INITIAL_SCREEN is 
DONE : boolean \ 
begin 

FINISHED := FALSE \ 
while not FINISHED loop 
DONE := FALSE \ 

open! RESULT_FILE , out_tile, "RESULTS . ADA " ) \ 

GET_FILENAME( TYPE_PRESENT ) \ 



it (TYPE.PRESENT) then 

open(TEST_FILE, in.tile, TEST_FILE_NAME )\ 
create( DATA_FILE1 , out.tile, DATA_FILE_NAME 
create! DATA.FILE2, out_tile, DATA_FILE_NAME 
create! DAT A_FILE3, out_tile, DATA_FILE_NAME 
create! DAT A_FILE4, out_tile, DATA_FILE__NAME 
else 



& " . data" ) j 
& " .misc" ) \ 
& " . rand " ) \ 
& " .hals " ) \ 



open! TEST_FILE , in_tile, TEST_FILE_NAME & M .ada")> 
create! DAT A_FILE1, out_tile, DATA_FILE_NAME & ".data " )\ 
create! DAT A_FILE2, out_tile, DATA.FI LE.NAME & ".misc 11 )) 
create! DAT A_FILE3, out_Tile, DATA_FILE_NAME & ".rand")j 
create! DATA_FILE4, out_tile, DATA_FILE_NAME & ".hals")) 
end it* 



INITIALIZE_OPERAND J.IST! DATA_FILE_NAME , HEAD.NODE ) \ 

it (COMPILATION) then 
new_line i 
CLEARSCREENj 

put! "ftftt«Ht#ftft3#t«t###3tWftftftftftftftftftftftftftftftftftftftftftftftftftftft" ) ) 
put! "#3#$Nt3333mmmftftftftftftftftftftftftftftftftftftft n ) j new_linej 
put ( "ft ")j 

put!" ft" )j new_linej 

put! "ft Parse ot Ada program " )\ 

put!" complete ft" ) \ new_linej 
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put! "3 " )* 

put!" 3" )* new.line * 

put! "333333333333333333333333333333333333333333333" ) * 
put ( "#333333333333333333333333333333333" ) * new_line * 
else 

put! "Attempting to parse a non_compi table program")* 
end if* 
new_line( 3 ) * 

HRITE_OPERATOR_T ABLE! DAT A_FILE1> DATA_FILE2, DATA.FILE4 ) * 

WRITE_OPERAND_TABLE! DATA.FILE3 , DATA_FILE4 ) * 

WRITE .NESTING.! ABLE ( DATA.FILE2 i * 

close! DATA.FILEl ) * 
close! DAT A.FILE2 ) * 
close! DAT A.FILEI ) * 
close! DATA.FILEL ) * 
close! RESULT.FILE ) * 



close! TEST_FILE ) * 



while not (CONE) loop 
new.line! 2 J * 

out!"++ + + + + + + + + + + + + + + + ++ + + + + +++++ + + + -*-+++ +++ + + + + ++++ + + + ++ + +" ) * 
put! " f++++ +++++++++++++++++++++" ) * new. line * 

put! "+ " )* 

put!" + " ) * new.line* 

put("+ ^he program has completed :he parse of your" ) * 

put!*' input file +")* new.line* 



put! " + 
put! " 
put ( " * 
put! "N ) 
put! "+ 
put! " 
put! "+ 
put! " 
put! " + 
put! " 



" >* 



+ " )* new. line * 

Do you want to parse another file ? !Y/")* 
+ " )* new.line* 

")* 

+ " )* new_line* 

Type *Y ' for YES and 'N' for NO ")* 
+ ")* new_line* 

. ")) 

+ ")* new_line* 

put! "++++++++++++++++++++++++ +++++++++++++++++++++++++++++" ) * 
put! "++++++++++++++++++++++++++")* new_line( 2 ) * 
put! "Answer : " ) * 



GET_ANSWER( ERROR , FINISHED ) * 

get_line( INPUT_FILE_NAME > LENGTH_OF_LINE ) * — flush system input 



new_line * 
RESET_PARAMETERS * 


buffer 


if ERROR then 




new_line( 2 ) * 




putt "i 1 1 1 ii 1 1 ii 1 1 ii ii ii ii ii ii ii ii ii 1 1 ii iii i iii ii ii ii ii rn 


put! "| | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1")* new.line* 


put!" 


")* 


put! " 


" ) * new.line* 


put!" You either omitted or improperly entered your ' Y")* 


put!" or 'N' answer 


")* new_line* 


put! " 


Please Try Again ")* 


put!" 


" ) * new line* 


put!" 


”)* 


put! " 


")* new line* 


put! "|| Mill || || || INI 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1")* 


put! "1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1" )* new.line* 


else 




DONE := TRUE * 




end i f * 


-- if ERROR 


end loop* 


— while not done 


1 loop* 


— outer while loop 
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end INITIAL_SCREEN* 



— this procedure produces the initial screen displayed to the user, 
procedure INTRODUCTION is 

HOLD_CHARACTER : character* 
begin 

CLEARSCREEN* 



put 

put 



***********************************************" ) * 
*********************" ) * new_l ine * 



pu t ( "* 








")* 


pu t ( " 




*" )* 


new_line * 




pu t ( "* 




WELCOME TO 'AdaMEASURE' " ) * 


out( " 




*••)* 


new_line * 




put ( "* 








")* 


put ( " 






new^line * 




pux( "* 




AUTHORED 3Y : 


LCDR JEFFREY 


L. NIEDER" )* 


put( ", 


USN 


*" ) * 


new_iine * 




put( "* 






LT KARL S. 


FAIRBANKS" )* 


put ( 1 1 , 


USN 


*" 1 * 


new_line * 




pu t ( 








" )* 


pu t ( " 




*" )* 


new_line * 




put ( "* 




NAVAL POSTGRADUATE SCHOOL")* 


put ( " 




*" )* 


new_line* 




putt 




DEPARTMENT OF COMPUTER SCIEN" U 


put ( "C2 




*" )* 


new_line * 




put( 




MONTEREY, CALIFORNIA " ) * 


pu t ( " 




*" )* 


new_line* 




pux ( "* 








" ) * 


pu t ( " 




*" )* 


new_line * 




put ( "^ 






SI OCTOBER 


1986 ")* 


put ( " 




*" H 


new_l ine * 




put( "* 








" )* 


pu t ( " 




*" 


new_l ine * 




put ( "* 






VERSION 1 


. 0 " ) * 


put ( " 




*" )* 


new_line * 




put ( "* 








")* 


put ( " 




*" )* 


new_line * 




put("* 


This 


program provides 


an automated 


software ")* 


put ( "metric 


tool which *")* 


new_line* 





put("* uses quantitative measures in an effort to su" ) j 
putC'pply the user with *" ) * new_line* 

put("* helpful information about the static structur")* 
put("e of a given input *" ) * new_line* 

put("* program. This program is public domain infor" )* 
put( "mat ion. ) * new_line* 

put( "* " )* 

put(" *" )* new_line* 

put( "***********************************************" ) * 
put( "*********************" ) * new_line( 2 ) * 

put(" Enter any letter to continue " )* 

new_line * 

get ( HOLD_CHARACTER ) * 
end INTRODUCTION* 



end INITIAL_DISPLAY * 



84 



— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: PACKAGE LOW_LEVEL_SCANNER 

DATE CREATED: 06 JUN 86 

LAST MODIFIED: 04 NOV 86 



AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains six of the seven 

procedures used to identify the token types. The 
seventh procedure, used to identify numeric literals 
is contained in package NUMERIC. 



— *************************************************************** — 

with NUMERIC, GET_NEXT_CHARACTER , GLOBAL * 
use NUMERIC, GET_NEXT_CHARACTER , GLOBAL 5 

package L0W_L E VE L_SCANNE R is 

procedure GET_IDENTIFIER( T0KEN_REC0RD : in out T0KEN_REC0RD_TYPE ) \ 
procedure FLUSH_SEPARATORS( T0KEN_REC0RD : in out TOKEN_RECORD_TYPE ) * 

procedure GET_DELIMITER< TOKEN.RECORD : in out TOKEN_RECORD_TYPE ) > 

procedure FLUSH_COMMENT( TOKEN.RECORD : in out TOKEN_RECORD_TYPE )l 

procedure GET_CHARACTER_LIT( TOKEN.RECORD : in out TOKEN_RECORD_TYPE )l 

procedure GET_STRING_LIT ( T0KEN_REC0RD : in out TOKEN_RECORD_TYPE ) \ 

end LOW_LEVEL_SCANNER* 



package body LO W_ L E V E L_SC ANN E R is 

-- an identifier can be any number of letters or digits following the 

— first letter, with a single underscore allowed between any pair 

— of letters and/or digits 

procedure GET_IDENTIFIER( T0KEN_REC0RD : in out TOKEN_RECORD_TYPE ) is 
DONE : boolean := FALSE * 
begin 

while (not DONE) loop 

— store the character in the lexeme buffer 

— and increment the lexeme pointer 
T0KEN_REC0RD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER* 

LEXEME_LENGTH := LEXEME_LENGTH + 1* 

if ( ( LOOKAHEAD_ONE_CHARACTER in UPPER_CASE_LETTER ) or 
( LOOKAHEAD_ONE_CHARACTER in LOWER_CASE_LETTER ) or 
< LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE ) ) then 
GETNEXTCHARACTER( NEXT_CHARACTER, L00KAHEAD_0NE_CHARACTER ) * 

elsif ( ( LOOKAHEAD_ONE_CHARACTER = ) and ( NEXT_CHARACTER = then 

ERROR_MESSAGE ( T0KEN_REC0RD . TOKEN_TYPE ) \ — two consecutive underscores 

-- are not allowed 

elsif ( LOOKAHEAD_ONE_CHARACTER = '_') then 

GETNEXTCHARACTER( NEXT_CHARACTER> LOOKAHEAD_ONE_CHARACTER ) * 

else 

DONE := TRUE J — identifier token accepted 
end ifj 
end loop * 

end GET_IDENTIFIER* 



— this procedure removes all the separators, which are delineated 
in GLOBAL, from the input code 
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procedure FLUSH_SEPARATORS( TOKEN_RECORD : in out TOKEN_RECORD_TYPE ) is 
DONE : boolean := FALSE j 
begin 

while (not DONE) loop 

TOKEN_RECORD . LEXEME ( LEXEME_LENGTH ) := NEXT__CHARACTER $ 
LEXEME_LENGTH := LEXEME_LENGTH + l> 
if ( ( LOOKAHEAD_ONE_CHARACTER = * * ) or 
( ( character 'post LOOKAHEAD_ONE_CHARACTER ) in FORMATORS ) and 
( LOOKAHEAD_ONE_CHARACTER /= ASCII.CR))) then 
GETNEXTCHARACTERt NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) J 
else 

DONE := TRUE J — completed flushing of separators 
end i f \ 
end loop $ 

end FLUSH_SEPARATORS ; 



— this procedure identifies both the simple and compound delimiters 
which are delineated in GLOBAL 

procedure GET_DELIMITER( TOKEN_RECORD : in out TOKEN_RECORD_TYPE ) is 
begin 

— store the character in the lexeme buffer 

— and increment the lexeme pointer 
TOKEN_RECORD. LEXEME ( LEXEME .LENGTH ) := NEXT_CHARACTER j 
LEXEME J.ENGTH := LEXEME_L£NGTH + 1* 

if ( ( character ' post NEXT_CHARACT£R ) in COMPOUND_DELIMITER ) or 
( NEXT_CHARACTER = * . * ) or ( NEXT_CHARACTER = ) or 

(NEXT_CHARAC7ER - * : * ) or ( NEXT.CHARACTER = '/*)) then 

if ( (character* post LOOKAHEAD_ONE_CHARACTER) in COMPOUND_DELIMITER ) or 

( LOOKAHEAD_ONE_CHARACTER = '.*) or ( LOOKAHEAD_ONE_CHARACTER = '*')) then 
GETNEXTCHARACTERt NEXT_CHARACTER , LOOKAHEAD_ONE__CHARACTER ) J 
TOKEN_RECORD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER > 

LEXEME_LENGTH := LEXEME_LENGTH + lj 
end if* 
end i f * 

end GET_DELIMITER> 



— this procedure removes all the comments from the input code 

all comments start with a -- and end with a carriage return 

procedure FLUSH.COMMENT ( TOKEN.RECORD : in out TOKEN_RECORD_TYPE ) is 
DONE : boolean := FALSE* 
begin 

GETNEXTCHARACTERt NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) * 
while (not DONE) loop 

if ( LOOKAHEAD_ONE_CHARACTER = ASCII.CR) then 
DONE := TRUE* — end of comment 
else 

GETNEXTCHARACTERt NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) * 
end if* 
end loop * 

end FLUSH_COMMENT* 



-- this procedure identifies an individual character 

formators are not allowed to be character literals 

procedure GET_CHARACTER_LIT ( TOKEN_RECORD : in out TOKEN_RECORD_TYPE ) is 
STATE : positive := 1* 

DONE : boolean := FALSE* 
begin 
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while (not DONE) loop 
case STATE is 

-- store the character in the lexeme buffer 
— and increment the lexeme pointer 
when 1 => TOKEN_RECORD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER * 

LEXEME_LENGTH := LEXEME_LENGTH + 1 * 

if ( LOCKAHEAD_ONE_CHARACTER = 1 ' * ) then 
STATE := 2* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) * 
elsif ( character' pos( LOOKAHEAD_ONE_CHARACTER ) 
in FORMATORS) then 

ERROR_MESSAGE( TOKEN_RECORD . TOKEN_TYPE ) * 
else 

STATE := I* 

GcTNEXTCHARACTER( NEXT_CHARACTER> LOOKAHEAD_ONE_CHARACTER ) * 
end i f * 

when 2 => if ( LOOKAHEAD_ONE_CHARACTER = ’”) then 

-- store the character in the lexeme buffer 
-- and increment the lexeme pointer 
TOKEN_RECORD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER * 
LEXEME_LENGTH := LEXEME_LENGTH + 1* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) i 
TOKEN.RECORD. LEXEME! LEXEMEJ-ENGTH) := NEXT_CHARACTER * 



else 

-- one single quote found* classify as accent marK 

change toKen type from character literal to delimiter 
TOKEN_RECORD. TOKEN JTYPE := DELIMITER * 

NEXT_3UFFER_INDEX CURRENT_3UFFER_INDEX J 
end if*, 

DONE := TRUE * 

when others => null* 
end case* 
end loop* 

end GET_CHARACTER_LIT * 



— this procedure identifies a string which is a sequence of zero or 
more characters between double quotes 

procedure GET_STRING_LIT ( TOKEN_RECORD : in out TOKEN_RECORD_TYPE )is 
STATE : positive := 1* 

DONE : boolean := FALSE* 
begin 

while (not DONE) loop 

— store the character in the lexeme buffer 

— and increment the lexeme pointer 
TOKEN_RECORD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER * 

LEXEME_LENGTH := LEXEME_LENGTH + 1* 

case STATE is 

when 1 => if ( LOOKAHEAD_ONE_CHARACTER = "" ) then 

STATE := 2* — two consecutive quotes seen 

else 

STATE ;= 4* — one or more characters in the string 

end if* 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) * 

when 2 => if ( LOOKAHEAD_ONE_CHARACTER = "" ) then 

STATE := 3* — three consecutive quotes seen 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) * 
else 

DONE := TRUE* -- string of zero characters accepted 
end if* 



87 



when 3 => if 



when 4 => if 



when 5 -> if 



when G -> if 



when others = 
end case* 
end loop* 

end GET_STRING_LIT > 
end LOW_LEVEL_SCANNER> 



( LOOKAHE AD_ONE_CHARACTER = "•') then 

GETNEXTCHARACTERt NEXT_CHARACTER, LOOKAHE AD_ONE_CHARACTER ) > 
TOKEN_RECQRD . LEXEME ( LEXEME_LENGTH ) := NEXT_CHARACTER * 
LEXEME_LENGTH := LEXEME_LENGTH + 1\ 

DONE := TRUE \ — four consecutive quotes 

-- string of one printable quote accepted 

else 

STATE := <+* 

GETNEXTCHARACTERt NEXT_CHARACTER , LOOKAHE AD_ONE_CHARACTER ) \ 
end i f \ 

( LOOKAHEAD_ONE_CHARACTER = "") then 
STATE := 5; 

GETNEXTCHARACTERt NEXT .CHARACTER , LOOK AHEAD.ONE .CHARACTER ) * 
els if ( character J oosi NEXT.CHARACTER ) in FORMATORS ) then 
ERROR ^MESSAGE ( TOKEN.RECORD . TOKEN. TYPE ) \ 
else 

GETNEXTCHARACTERt NEXT.CHARACTER » LOOK AHEAD. ONE .CHARACTER ) V 
end if$ 

( LOQKAHEAD.QNE.CHARACTER = ‘ M ' ) then 
STATE := 6; 

GETNEXTCHARACTERt NEXT.CHARACTER , LOOKAHE AD.ONE. CHARACTER ) * 
else 

DONE := TRUE; — string literal accepted 

end i f \ 

( LOQKAHEAD.QNE.CHARACTER = • M ’ 1 then 
STATE := 5; 

GETNEXTCHARACTERt NEXT.CHARACTER > LOOKAHEAD.ONE .CHARACTER ) * 
else 

STATE := 4* 

GETNEXTCHARACTERt NEXT.CHARACTER > LOOKAHEAD .ONE .CHARACTER ) \ 
end if* 

■ null* 
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— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: MENU_DISPLAY 

— DATE CREATED: 11 OCT 86 

— LAST MODIFIED: 01 DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains the procedures that 

produce the menus which allow the user to select a 
specific 'AdaMeasure' operation. 

— *************************************************************** — 

with GENERAL_DATA > HALSTEAD_DISPLAY , INITIAL_DISP LAY , DISPLAY^SUPPORT , 
GL0BAL_PARSER, GLOBAL, TEXT_I0> 

use GENERAL_DATA, HALSTEAD_DISPLAY , INITIAL_DISPLAY , DISPLAY_SUPPORT , 
GLOBAL_PARSER> GLOBAL, TEXT_I0> 

package MENU_DISPLAY is 
procedure MENU* 
procedure INITIAL_MENU \ 
procedure VIEW_HENRY> 

end MENU_DISPLAY> 



package body MENU_DISPLAY is 

— this procedure displays the metric selection menu from which the user 
can make the appropriate selection, 
procedure MENU is 

DONE : boolean := FALSE * 
begin 

while not DONE loop 
CLEARSCREEN * 
new_line * 

put( "********************************************************" ) * 
put( "***********************" ) j new_line* 



putt"* 




M n 


put( " 


* n n 


new_line * 


put ( "* 




METRIC SELECTION MENU " U 


pu t ( " 


*"U 


new_linej 


putt"* 




M n 


put( " 


*" n 


new_line* 


putt "* 


HERE ARE THE 


INFORMATION CHOICES AVAILABLE" ) * 


putt" TO YOU 


* n n 


new_linej 


putt "* 




"u 


putt" 


* u n 


new_line * 


putt "* 


Simply enter the number of your choice" 


putt" 




new_line j 


putt "* 




M n 


putt " 




new_line * 


putt "* 


1 - 'HALSTEAD' METRIC INFORMATION ")* 


putt" 


*"U 


new_line* 


putt "* 






putt" 


*"U 


new_line j 


put ( "* 


2 - COMMENT AND NESTING METRIC INFORMATION " ) \ 


putt " 


*"U 


new_line$ 


putt "* 




u n 


putt " 


*")* 


new_line * 


putt"* 


3 - 'HENRY and KAFURA' METRIC INFORMATION "U 


putt" 


* u n 


new_line * 


putt"* 






putt " 


* M n 


new_line \ 
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put ( ' 
put( ' 
put ( ' 
put ( 1 
put ( 1 
put ( ' 
put ( * 
put ( ' 
putt* 
put ( ' 
put ( ' 



4 - EXIT TO MAIN MENU 
*" )* new_line* 



")* 

")* 



*" ) * new_line* 

5 - EXIT TO OPERATING SYSTEM " ) * 

*")* new_line* 

'* ")* 

*" )* new_line * 

'a**********************" ) * new_line( Z ) * 

"Choice = ")* 
get( ANSWER ) * 

get_line(DUMMY_FILE_NAME, LENGTH_OF_LINE ) * — flush system input buffer 

new_linet 2 ) * 



case ANSWER is 
when *1' => 
when ’2' => 
when 'S' => 
when *4' => 
when '5' => 
when others 
end case* 
end loop * 
end MENU * 



HALSTEAD * 

VIEWJ3ENERAL* 

VIEW_HENRY* 

DONE := TRUE* 
raise QUIT_TO_OS* 
=> null* 



— this procedure displays the main selection menu which allows the user 
to choose to parse a file, view previously gathered data, or quit to 
the operating system, 
procedure INITIAL_MENU is 
DONE ; boolean := FALSE* 
begin 

INTRODUCTION* 
while not DONE loop 



CLEARSCREEN* 






new_line * 






putt "******************************************************** 


")* 


putt "***********************" )* new_line* 




putt"* 




”)* 


putt" 


*")* new_line* 




putt"* 


MAIN SELECTION MENU 


")* 


putt" 


*" )* new_line* 




putt"* 




M )* 


putt" 


*")* new_line * 




putt "* 


HERE ARE THE ACTION CHOICES AVAILABLE TO 


")* 


putt "YOU 


*")* new_line* 




putt"* 




")* 


putt " 


*")* new_line* 




putt"* 


Simply enter the number of your choice 


t" )* 


putt" 


*")* new_line* 




putt"* 




")* 


putt" 


*" )* new_line* 




putt"* 


1 - PARSE AN INPUT FILE 


")* 


putt" 


*")* new_line* 




putt"* 




")* 


putt" 


*")* new_line* 




putt"* 


2 - VIEW PREVIOUSLY GATHERED DATA 


M )* 


putt" 


*")* new_line* 




putt"* 




" )* 


putt" 


*")* new_line* 




putt"* 


S - EXIT TO OPERATING SYSTEM 


M )* 


putt" 


*" ) * new_line* 




putt"* 




" ) * 


putt" 


*" ) * new_line* 




putt "******************************************************** 


" )* 


putt "***********************" ) * new_line( 2 ) * 




putt "Choice = ")* 






get t ANSWER)* 
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get_line( DUHMY_FILE_NAME > LENGTH_OF__LINE ) * — flush system input buffer 

new_line( Z ) * 
case ANSWER is 

when '1' = > RESET_PARAMETERS* 

INITI AL_SCREEN * 

MENU* 

when 'S' => MENU * 
when '3' => raise QUIT__TO_OS* 
when others => null* 
end case* 
end loop* 
end INITIALJ1ENU* 



-- this procedure is just a placeholder for the implementation of the 
— Henry and Kafura complexity flow metric, 
procedure VIEW_HENRY is 

HOLD_CHARACTER : cnaractar* 
begin 

CLEARSCREEN* 
new_line * 

put ( "=================================================================" ) * 

new_line( Z ) * 

put( "This software metric has not yet been implemented into this 1 ')* 
new_line v 

put! "program. It is hoped that this information will oe added in*')* 
new_line * 

put("the very near future." )> 



new_linel 2 ) * 

3Ut( "- = = = = = = = = = = = = = = = = = == = =:=: = r = = r = = = = === = = = = = = = = = = = = = = = = = = = = = = = = = = = = ==^ ) ; 

new_linet 2 ) * 

put( " Enter any letter to continue " ) * 

new_line * 



get! HOLD_CHARACTER ) * 
end VIEH_HENRY * 

end MENU_DISPLAY * 
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APPENDIX D 

'ADAMEASURE' PROGRAM LISTING - PART 2 



W ^ W ^ A A A * A A A * A A A A A A 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: 

-- OATE CREATED: 

— -AST MODIFIED: 



PACKAGE HALSTEAD.METRIC 
04 OCT 36 
01 DEC 36 



AUTHORS: 



LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This pacKage contains all of the declarations 

and data structures required by our metric, as well as 
all necessary procedures and functions for gathering 
and storing the metric data. 



-- - **■********■*■***■**■********•*-***•**********■****■*****■**■******-*•*******-* — 



with GLOBAL, GLOBAL.? ARSER, 3YPAS3_SUPP0RT_fUNCTI0NS , TEXT.IO) 
use GLOBAL, GLOBAL.? ARSER , 3YPAS3.3UPP0RT. FUNCTIONS , TEXT. 10 *, 

pacKage HALSTEAD.METRIC is 

pacKage NEW.INTEGER.IO is new TEXT.IO. 1NTEGER_I0( integer J ) 
use NEW.INTEGER.IO) 



SCOPE.ON 


: constant 


boolean 


: = 


TRUE) 


3C0PE.0FF 


: constant 


boolean 




FALSE) 


PACKAGE.DECLARE 


: constant 


integer 


; r 


0 ) 


PROCEDURE.DECLARE 


: constant 


integer 


: = 


1) 


FUNCTION.DECLARE 


: constant 


integer 


: = 


2) 


TASK.DECLARE 


: constant 


integer 


: = 


3 ) 


BLOCK.DECLARE 


: constant 


integer 


: = 


4) 


VARIABLE.DECLARE 


: constant 


integer 


: = 


5 ) 


CONST ANT.DECLARE 


: constant 


integer 


: = 


6) 


NO.DECLARE 


: constant 


integer 


: — 


7 ) 


IF.CONSTRUCT 


: constant 


integer 


: = 


0 ) 


L00P.C0NSTRUCT 


: constant 


integer 


: = 


1) 


WHILE.CONST RUCT 


: constant 


integer 


: = 


2) 


FOR.CONSTRUCT 


: constant 


integer 


; r 


3 ) 


CASE.CONSTRUCT 


: constant 


integer 


: = 


4) 


IF.END 


: constant 


integer 


: = 


5 ) 


LOOP.END 


: constant 


integer 


: = 


6) 


CASE.END 


: constant 


integer 


j = 


7 ) 


NUMBER.OF.OPERANDS 


: constant 


integer 


. = 


500 ) 


FIRST.LEVEL.NEST 


: constant 


integer 


: = 


1 ) 


MAXIMUM.NESTING 


: constant 


integer 


: = 


15 ) 



type OPERATOR.ARRAY.TYPE is 

array ( TOKEN.AND. .TOKEN.ASSIGNMENT ) of integer) 

type OPERAND.TYPE ) 
type LINK is access OPERAND.TYPE) 
type OPERAND.TYPE is 
record 

OPERAND : string( 1. .LINESIZE )) 

SIZE : natural) 

NEXT .OPERAND : LINK) 

end record) 
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type OPERAND.MATRIX is 
record 
SCOPE 
REFERENCE 
DECLARATION.TYPE 
LEXEME.ADDRESS 
end records 



integer * 
integer := 0* 
integer * 

LINK * 



type HALSTE AD_OPERAND_ARRAY is 

array( 0 . .NUMBER_OF_OPE RANDS ) of OPERAND.MATRIX * 

type NESTE D_COUNT_TYPE is 

array! FIRST.LEVEL.NEST. .MAXIMUM.NESTING) of integers 

type CONSTRUCT.COUNT.TYPE is 

array! IF.CONSTRUCT . . CASE.CONSTRUCT ) of integer* 

OPERATOR_ARRAY : OPERATOR.ARRAY.TYPE := ( TOKEN.AND . . TOKEN_ASSIGNMENT => 0 ) * 

NESTE D.COUNT : NESTE D.COUNT.TYP E := ( FIRST.LEVEL.NEST . .MAXIMUM_NESTING => 0)* 



CONSTRUCT_COUNT : CONSTRUCT_COUNT_TYPE := ( IF.CONSTRUCT . .CASE.CONSTRUCT => 0 ) * 



SYMBOL.TABLE 


: HALSTEAD.OPERAND.ARRAY* 


HEAD.NODE, NEW.NODE 


: LINK* 




DECLARE.TYPE 


: integer := 


VARIABLE. DECLARE * 


CURRENT.NESTING.LEVE L 


: integer := 


0* 


MAXIMUM.NESTING. LEVEL 


: integer := 


0* 


TOT AL.OP E RAND.COUNT 


: integer := 


0* 


NESTING. LINE_NUMBER 


: integer := 


0* 


SYMBO L.T ABLE. INDEX 


: integer := 


0* 


SCOPE.LEVEL 


: integer* 




LAST.ENTRY.INDEX 


: integer* 




NESTED_LEVEL_INCREASE 


: boolean := 


TRUE* 


NO.ITE RATION 


: boolean : = 


TRUE* 



procedure OPERATOR_METRIC( OPERATOR.INDEX : in integer* 

CONSUME, RESERVE.WORD.TEST : in boolean)* 
procedure OPERAND.METRIC! HEAD.NODE : in out LINK* 

LEXEME_RECORD : in out TOKEN.RECORD.TYPE * 
DECLARE.TYPE : in integer)* 
procedure INITIALIZE_OPERAND_LIST ( DATA.FILE.NAME : in out string* 

HEAD.NODE : in out LINK)* 

procedure ADD.SYMBOL! TEMP.NODE : in out LINK* DECLARE.TYPE : in integer)* 
function DUPLICATE.LEXEME ( TEMP.NODE : in LINK) return boolean* 
procedure REFERENCE.UPDATE ( SYMBOL.TABLE.INDEX : in out integer)* 
procedure WRITE.OPERATOR.TABLE ( 0UTPUT1 , OUT PUT 2 , OUT PUT 3 : in out file.type)* 
procedure WRITE.OPERAND.TABLE! 0UTPUT1 , OUT PUT 2 : in out file_type)* 
procedure NESTING.METRIC! NEST.TYPE : in integer)* 
procedure WRITE_NESTING_TABLE ! 0UTPUT_FILE : in out file.type)* 
end HALSTEAD_METRIC * 



package body HALSTE AD_METRIC is 

-- this procedure updates the operator array based on the parsing of a 
— valid Halstead operator, 
procedure OPERATOR.METRIC! 0PERAT0R_INDEX : in integer* 

CONSUME, RESERVE_WORD_TEST : in boolean) is 

begin 

if (CONSUME) and then not ( RESERVE_WORD_TEST ) then 

0PERAT0R_ARRAY(0PERAT0R_INDEX) := OPERATOR. ARRAY! OPERATOR.INDEX ) + 1* 
end i f * 
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end OPERATOR_METRIC * 



— this procedure builds the symbol table for the input file, and 

— calls the appropriate procedure for entering or updating Halstead 

— operand information. 

procedure OPERAND_METRIC( HEAD_NODE : in out LINK * 

LEXEME_REC0RD : in out TOKEN_RECORD_TYPE * 
DECLARE.TYPE : in integer) is 

TEMP_N0DE , TRAILER : LINK* 

INPUT_LEXEME : str ing( 1 . . LINESIZE ) * 

FOUND : boolean) 

SIZE : natural* 
begin 

TRAILER := HEAD.NODE * 

TEMP_N0DE := HEAD_N0DE .NEXT^OPERAND > 

INPUT_LEXEME := l!xEME_RECORD . LEXEME * 

SIZE := LEXEME_REC0RD . LEXEME_SIZE - 1* 

FOUND := FALSE * 

while (TEMP_N0DE /= null) loop 

if ( ADJUST_LEXEME ( INPUT_LEXEME , SIZE) = 

ADJUST__LEXEME ( TEMP_NODE . OPERAND , TEMP_NODE . SIZE ) ) then 
FOUND := TRUE * 
else 

TRAILER := TEMP_N0DE * 

TEMP_NODE := TEMP_NODE . NEXT_OPERAND * 
end if* 

exit when FOUND* 
end loop* 

if not (FOUND) then 

NEW^NODE := new OPERAND_TYPE * 

NEW_NODE. OPERAND := INPUT_LEXEME * 

NEW_NODE . SIZE := LEXEME_RECORD . LEXEME_SIZE - 1* 

NEW_NODE . NEXT_OPERAND := null* 

TRAILER. NEXT_0PERAND := NEW_NODE * 

TEMP_NODE := NEH_NODE * 
end if* 

if not ( DUPLICATE_LEXEME ( TEMP_NODE ) ) then 
ADD_SYMBOL( TEMP_NODE , DECLARE_TYPE ) * 
else 

REFERENCE_UPDATE ( SYMBOL_T ABLE_INDEX ) * 
end i f * 

end OPERAND_METRIC * 



— this procedure initializes the head node for the symbol table, 
procedure INITIALIZE_OPERAND_LIST ( DATA_FILE_NAME : in out string* 

HEAD_NODE : in out LINK) is 

begin 

HEAD_NODE := new OPERAND_TYPE * 

HE AD_NODE. OPERAND := DATA_FILE_NAME * 

HE AD_NODE . NEXT_OPERAND := null* 

SYMBOL_T ABLE_INDEX := 0* 

SCOPE_LEVEL := 0* 

LAST_ENTRY_INDEX := 0* 
end INITIALIZE_OPERAND_LIST * 



— this procedure adds all of the information about a variable when 
it is initially parsed. 

procedure ADD_SYMBOL( TEMP_NODE : in out LINK* DECLARE_TYPE : in integer) is 
begin 

SYMBOL_TABLE( LAST_ENTRY_INDEX ) . LEXEME_ADDRESS := TEMP_NODE * 
if (DECLARATION) then 

SYMBOL_TABLE ( LAST_ENTRY_INDEX ) . DECLARATION_TYPE : = DECLARE_TYPE * 
SYMB0L_TABLE ( LAST_ENTRY_INDEX ) . SCOPE := SCOPE_LEVEL* 
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SYMBOL_TABLE( LAST_ENTRY_INDEX ) . REFERENCE := 0* 
else — a global variable 

if ( DECLARE_TYPE = CONST ANT_DECLARE ) then 

SYMBOL_TABLE ( LAST_ENTRY_INDEX ) . DECLARATION_TYPE : = CONST ANT_DECLARE * 
else 

SYMBOL_TABLE(LAST_ENTRY_INDEX).DECLARATION_TYPE := NO_DECLARE \ 
end i f * 

SYMBOL_TABLE ( LAST_ENTRY_INDEX ) . SCOPE ;= 0; 

SYMB0L_T ABLE < LAST_ENTRY_INDEX PREFERENCE := 1* 
end if* 

LAST_ENTRY_INDEX := LAST_ENTRY_INDEX + 1} 
end ADD_SYMBOL * 



— this function determines if 
symbol table- If located, 
appropriate position, 
function DUPLICATE^LEXEME ( TEMP_N0DE 



the current operand is already in the 
he symbol table index is set to the 



in LINK) return boolean is 



TEST_NAME 

INPUTJ.EXEME 

INPUT_SIZE 

TEST_SIZE 

LOCATED 



stringd. .LINESIZS)* 
s tr ing( 1 . . LINESIZE ) * 
natural * 
natural * 
boolean * 



begin 

LOCATED FALSE', 

INPUT_LEXEME TEMP_N0DE . OPERAND ; 

INPUT.SIZE := TEMP_N0DE . SIZE * 

for I in 0. A LAST_HNTRY_INDEX-l ) looo 

TEST_NAME SYMBOL^T ABLE ( X ) . LEXEME^ADDRESS . OPERAND ; 

TEST.SIZE := SYMBOL_TABLE( I ) . LEXEME _iDDRES3 -SIZE ; 
if ( ADJUST_LEXEME( TEST, NAME, “EST^SIZE ) = 

ADJUST_LEXEME ( INPUT_LEXEME > INPUT_SIZE ) ) then 
LOCATED TRUE * 



SYMBOL_TABLE_INDEX : = t* 
end if* 

exit when LOCATED* 
end loop * 
return ( LOCATED ) * 
end DUPLICATE_LEXEME * 



— this procedure updates the reference count when an operand is parsed, 

— after initial entry into the symbol table. 

procedure REFERENCE_UPDATE ( SYMB0L_T ABLE_INDEX : in out integer) is 
begin 

SYMBOL_TABLE ( SYMBOL_TABLE_INDEX ) . REFERENCE : = 

SYMBOL_TABLE( SYMBOL_TABLE_INDEX ) . REFERENCE + 1* 

T0TAL_0PERAND_C0UNT := TOT A L_0P E RAND_COUNT + 1* 
end REFERENCE_UPDATE * 



— this procedure writes the Halstead operator count data to the 
appropriate files. 

procedure WRITE_0PERAT0R_TABLE(0UTPUT1> 0UTPUT2 > OUT PUT 3 : in out file.type) is 
0PERAT0RS_USED , OCCURENCES : integer := 0* 
begin 

for I in T0KEN_AND. .T0KEN_ ASSIGNMENT loop 
if ( 0PERAT0R_ARRAY ( I ) /= 0) then 

0PERAT0RS_USED := 0PERAT0RS_USED + 1* 

OCCURENCES := OCCURENCES + 0PERAT0R_ARRAY( I ) * 
end if* 

put( 0UTPUT1 > 0PERAT0R_ARRAY( I ) > 5)* 
end loop * 

new_line( OUTPUT 1 ) * 

for I in IF_CONSTRUCT . . CASE_CONSTRUCT loop 
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if ( CONST RUCT.COUNT ( I ) /= 0) then 

OPERATORS_USED := OPERATORS.USED + 1) 
OCCURENCES := OCCURENCES + CONST RUCT_COUNT ( I ) ) 
end if) 

put ( OUTPUT1 > CONSTRUCT.COUNTtI ), 5)) 
end loop ) 

put ( OUT PUT 1 , OPERATORS .USED, 5)) 
putt OUTPUT1 > OCCURENCES, 5)) 

putt OUTPUT 2 , TOTAL_LINES_INPUT , 5)) 
putt OUTPUT 2 , COMMENT.COUNT, 5)) 

putt OUTPUT3 > OPERATORS.USED, 5)) 
putt OUTPUTS, OCCURENCES, 5)* 



ana WRITE.QPERATOR.TABLE ) 



— this procedure writes the Halstead operand information to the 
appropriate files. 

procedure WRITE.OPERAND.TABLEt OUTPUT1 , OUTPUT 2 : in out file_type) is 
NAME : stringt 1 . . LINESI2E ) ) 

SIZE : integer) 
oegin 

puttGUTPUTl, LAS7.SNTRY. INDEX - 1, 5)) 
putt OUTPUTS, LAST.ENTRY.INDEX - 1, 5U 
putt OUT PUT 1 , 70TAL.0PERAND. COUNT , 5H 
puttOUTPUTS, 7GTAL.0PERAND .COUNT, 51) 
new.linet OUTPUT!)) 

for I in 0 . . ( LAST.ENTRY.INDEX- 1 ) loop 

NAME := SYMBOL.TABLEt I ). LEXEME. ADDRESS. OPERAND) 

SIZE SYMBOL.TABLEt I ) . LEXEME. ADDRESS .SIZE ) 

putt OUTPUT!, SYMBOL.TABLEt I ) .SCOPE , 5)) 
putt OUTPUT! , SYMBOL.TABLEt I ). REFERENCE, 5)) 
putt OUTPUT 1, SYMBOL.TABLEt I ) . DECLARATION.TYPE , 5)) 
CONVERT.UPPER.CASEt NAME , SIZE)) 
putt OUTPUT1 , ADJUST. LEXEME ( NAME , SIZE))) 
new.linet OUTPUT!)) 
end loop ) 

end WRITE.OPERAND.TABLE ) 



-- this procedure maintains the maximum nesting level attained, the number 
-- of times each nesting level is reached, and the number of times each 
nesting construct is utilized, 
procedure NESTING.METRICt NEST.TYPE : in integer) is 
begin 

case NEST.TYPE is 

when I F.CONST RUCT LOOP.CONSTRUCT WHILE.CONSTRUCT 
FOR.CONST RUCT CASE.CONSTRUCT 

= > CONST RUCT.COUNTt NEST.TYPE ) := CONST RUCT.COUNT t NEST.TYPE ) + 1) 
NESTE D.LEVEL.INCREASE := TRUE) 

CURRENT.NESTING.LE VE L := CURRENT .NESTING.LEVEL + 1) 
if t CURRENT.NESTING.LEVEL > MAXIMUM.NESTING.LEVEL ) then 
MAXIMUM.NESTING.LEVEL := CURRENT.NESTING.LEVEL) 
NESTING.LINE.NUMBER := TOTAL.LINES.INPUT ) 
end i f ) 

when IF.END LOOP.END CASE.END => 

if ( NESTED.LEVEL.INCREASE ) then 

NESTED.COUNTt CURRENT.NESTING.LEVEL ) := 

NESTED.COUNTt CURRENT.NESTING.LEVEL) + 1) 
NESTED.LEVEL.INCREASE := FALSE) 
end i f ) 

CURRENT.NESTING.LEVEL := CURRENT.NESTING.LEVEL - 1) 
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when others => null* 
end case* 

end NESTING_METRIC* 



— this procedure writes the nesting metric data to the appropriate file, 
procedure WRITE_NESTING_TABLE( OUTPUT_FILE : in out file_type) is 
begin 

ne w_line< OUTPUT_FILE ) * 

for I in IF_CONSTRUCT . . CASE_CONSTRUCT loop 
put(OUTPUT_FILE, CONST RUCT_COUNT( I ) , 5)* 
end loop * 

new_line( OUTPUT_FILE ) * 

put(OUTPUT_FILE> MAXIMUM_NESTING_LEVEL > 5)j 
new_linel OUTPUT_FILE ) i 

PUT ( OUTPUT_FI LE » NESTING_LINE_NUMBER , S)i 
new_line( OUTPUT_FILE ) * 

for I in FIRST_LEVEL_NEST . . MAXIMUM_NESTING loop 
put(OUTPUT_FILE> NESTED_COUNT( I ) , 5)* 
end loop * 

end WRITE_NESTING_TABLE * 
end HALSTEAD_METRIC * 
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— *************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: PACKAGE NUMERIC 

DATE CREATED: 13 JUN 86 

LAST MODIFIED: 04 NOV 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package is used to identify the following — 

numeric types: integer, real, based integer, and 
scientific notation. 



--*************************************************************** — 

with GLOBAL, GET_NEXT_CHARACTER * 
use GLOBAL, GET_NEXT_CHARACTER * 

package NUMERIC is 

procedure GET_NUMERIC_LIT( TOKEN.RECORD : in out TOKEN_RECORD_TYPE )* 
end NUMERIC * 



package body NUMERIC is 

procedure GET_NUMERIC_LIT ( T0KEN_REC0RD : in out TOKEN_RECORD_TYPE ) is 
DONE : boolean FALSE * 

STATE : positive := 1; 
begin 

while (not DONE) loop 

— store the character in the lexeme buffer 

— and increment the lexeme pointer 
T0KEN_REC0RD . LEXEME ( LEXEME_LENGTH ) := NEXT.CHARACTER * 
LEXEME.LENGTH := LEXEME.LENGTH + 1* 



— each option in the case statement is a state in the finite 

— state automata for determining numeric literals. Ada allows 

— the use of the underscore to aid readability of long numeric literals 
case STATE is 

when 1 => if ( L00KAHEAD_0NE_CHARACTER in DIGITS_TYPE ) then 
STATE := 1* 

GETNEXTCHARACTER(NEXT_CHARACTER, L00KAHEAD_0NE_CHARACTER ) * 
els if ( L00KAHEAD_0NE_CHARACTER = then 

STATE : = 2 * 

GETNEXTCHARACTER( NEXT_CHARACTER , L00KAHEAD_0NE_CHARACTER ) * 
els if ( ( L00KAHEAD_0NE_CHARACTER = 'E') or 
( L00KAHEAD_0NE_CHARACTER = 'e')) then 
STATE := 17* 

GETNEXTCHARACTER( NEXT_CHARACTER , L00KAHEAD_0NE_CHARACTER ) * 
els if (L00KAHEAD_0NE_CHARACTER = then 

STATE := 9* 

GETNEXTCHARACTERt NEXT_CHARACTER , L00KAHEAD_0NE_CHARACTER ) * 
elsif ( ( L00KAHEAD_0NE_CHARACTER = '#') or 
( L00KAHEAD_0NE_CHARACTER = ' :')) then 
STATE := 10* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) * 
elsif ( ( LOOKAHEAD_ONE_CHARACTER not in UPPER_CASE_LETTER ) and 
( LOOKAHEAD_ONE_CHARACTER not in LOWER_CASE_LETTER ) and 
( LOOKAHEAD_ONE_CHARACTER /= ' 1 ' ) and 
( LOOKAHEAD_ONE_CHARACTER /= then 

DONE := TRUE* -- universal integer accepted 

else 

ERROR_MESSAGE ( TOKEN.RECORD .TOKEN_TYPE ) * 
end if* 
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when Z => if ( LOOKAHEAD_ONE_CHARACTER = 1 then --test for range dots 
TOKEN_RECORD. LEXEME! LEXEME_LENGTH -!):=’ '* 
LEXEME_LENGTH := LEXEME_LENGTH - 1* 

NEXT_BUFFER_INDEX := CURRENT_BUFFER_INDEX * 

DONE := TRUE* — universal integer preceded these 

— range dots 

els if ( LOOKAHEAD_ONE_CHARACTER in DIGITS.TYPE ) then 
STATE := 3* 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) 5 
else 

ERROR_MESSAGE ( TOKEN_RECORD .TOKEN_TYPE ) * 
end i f * 

when 3 => if ( LOOKAHEAD_QNE_CHARACTER in OIGITS.TYPE J then 
STATE 3; 

GcTNEXTCHARACTERt NEXT_CHARACTER > L00KAHEAD_3NE_CHARAC7HR ) V 
elsif ( ( L00KAHEAQJ3NE ^CHARACTER - S') or 

I LOOKAHEAD_ONE_CHARACTER = ’a 1 )) then 
STATE := 4* 

GETNEXTCHARACTER! NEXT_CHARACTER > L00KAHEADJ3NE .CHARACTER ) * 
els if ( LOOKAHEAD_ONE_CHARACTER = then 

STATE ;= 5* 

GETNEXTCHARACTER! NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) * 
elsif ( ( LOOKAHEAD_ONE_CHARACTER not in UPPERCASE , LETTER ) and 
( LOOKAHE AD_QNE_CHARACTER not in L0HERJ3ASE_L5TTER ) and 
( LOOKAHEAD JDNE ^CHARACTER /= ' ' M ana 
( L00KAHEAQ_0NE_CHARAC7ER /= ' " ' then 

DONE := TRUE * -- universal real accepted 

else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN _7Y PE ) * 
end if* 

when 4 => if ( ( L00KAHEAD_QNE_CHARAC7ER = '♦*) or 

(LOOKAHEAD_ONE_CHARACTER = 1 -')) then 
STATE := 6* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHE AD_QNE_CHARAC TER ) * 
elsif ( LOOKAHE AD_ONE_CHARACTER in DIGITS_TYPE ) then 
STATE := 7* 

GETNEXTCHARACTER! NEXT_CHARACTER > LOOKAHE AD_ONE_CHARACTER ) * 
else 

E RROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) * 
end if* 

when 5 6 8 9 => 

if ( LOOKAHE AD_ONE_CHARACTER in DIGITS.TYPE ) then 
case STATE is 



when 5 => 


STATE 


:= 3* 


when 6 8 => 


STATE 


:= 7* 


when 9 => 


STATE 


:= 1* 



when others => null* 
end case* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHE AD_ONE_CHARACTER ) * 
else 

ERROR_MESSAGE( TOKEN_RECORD .TOKEN_TYPE ) * 
end if* 

when 7 => if ( LOOKAHE AD_ONE_CHARACTER in DIGITS_TYPE ) then 
STATE := 7* 

GETNEXTCHARACTER( NEXT_CHARACTER , LOOKAHE AD_ONE_CHARACTER ) * 
elsif ( LOOKAHEAD_ONE_CHARACTER = ) then 

STATE := 8* 

GETNEXTCHARACTER! NEXT_CHARACTER> LOOKAHE AD_ONE_CH AR ACTE R ) * 
elsif ( ( LOOKAHEAD_ONE_CHARACTER not in UPPER_CASE_LETTER ) and 
( LOOKAHEAD_ONE_CHARACTER not in LONER_CASE_LETTER ) and 
( LOOKAHEAD_ONE_CHARACTER /= 1 ' ' ) and 
< LOOKAHE AD_ONE_CHARACTER /= "")) then 

DONE := TRUE* — integer or real in scientific notation 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN__TYPE ) * 
end if* 
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when 10 12 14 16 => 

if ((LOOKAHEAD.ONE.CHARACTER in DIGITS.TYPE ) or 
( LOOKAHEAD.ONE.CHARACTER in UPPER.CASE.HEX ) or 
( LOOKAHEAD.ONE.CHARACTER in LOHER.CASE.HEX ) ) -then 
case STATE is 

when 10 12 => STATE :* 11; 
when 14 16 => STATE 15* 
when others => null* 
end case* 

GETNEXTCHARACTER( NEXT.CHARACTER, LOOKAHEAD.ONE.CHARACTER ) * 
else 

ERROR.MESSAGE ( T0KEN_REC0RD.T0KEN.TYPE ) * 
end if* 

when 11 => if ( ( LOOKAHEAD.ONE.CHARACTER in DIGITS , TYPE ) or 

( LOOKAHEAD.ONE.CHARACTER in UPPERCASE .HEX ) or 
< LOOKAHEAD.ONE.CHARACTER in LCWER.CASE.HEX )) ^hen 
STATE := 11* 

GcTNEXTCHARAC7ER( NEXT.CHARACTER , LOOKAHEAD.ONE ^CHARACTER ) * 
alsif ( LOOKAHEAD.ONE.CHARACTER = '.’) then 
STATE 14* 

GETNEXTCHARACTER( NEXT.CHARACTER , LOOK AHEAD .ONE .CHARACTER ) * 
elsif ((LOOKAHEAD.ONE.CHARACTER = ’*') or 
( LOOKAHEAD.ONE.CHARACTER = ' : ' ) ) then 
STATE := 13* 

GETNEXTCHARACTER( NEXT.CHARACTER » LOOKAHE AD.QNE .CHARACTER ) * 
alsif ( LOCKAHEAD.ONE. CHARACTER = ) then 

STATE := 12* 

GETNEXTCHARACTcRl NEXT.CHARACTER > LOOKAHEAD.ONE.CHARACTER J * 
alse 

ERROR.MESSAGE ( TOKEN. RECORD . TOKEN.TYPE ) * 
end i f * 

when 13 => if (( LOOKAHEAD .QNE.CHARACTER - 'H ’ ’I or 

( LOOKAHEAD.ONE. CHARACTER = ’a 1 )) then 
STATE := 17* 

GETNEXTCHARACTERt NEXT.CHARACTER , LOCKAHEAD.ONE. CHARACTER ) * 
elsif ( ( LOOKAHEAD.CNE.CHARACTER not in UPPER.CASE.LETTER ) and 
(LOOKAHEAD.ONE.CHARACTER not in LOWER.CASE.LETTER ) and 
( LOOKAHEAD.ONE .CHARACTER /= • 1 1 ) and 
( LOOKAHEAD.ONE.CHARACTER /= ,M, n then 

DONE := TRUE* -- based integer accepted 

else 

ERROR.MESSAGE! TOKEN.RECORD .TOKEN.TYPE ) * 
end i f * 

when 15 => if ((LOOKAHEAD.ONE.CHARACTER in DIGITS.TYPE ) or 

(LOOKAHEAD.ONE.CHARACTER in UPPER.CASE.HEX ) or 
(LOOKAHEAD.ONE.CHARACTER in LOWER.CASE.HEX ) ) then 
STATE := 15* 

GETNEXTCHARACTER( NEXT.CHARACTER, LOOKAHEAD.ONE.CHARACTER)* 
elsif (LOOKAHEAD.ONE.CHARACTER = ) then 

STATE := 16* 

GETNEXTCHARACTER( NEXT.CHARACTER , LOOKAHEAD.ONE.CHARACTER ) * 
elsif ((LOOKAHEAD.ONE.CHARACTER = '#') or 
( LOOKAHEAD.ONE.CHARACTER = ' : ' ) ) then 
STATE := 13* 

GETNEXTCHARACTER( NEXT.CHARACTER, LOOKAHEAD.ONE.CHARACTER)* 
else 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE ) * 
end if* 

when 17 => if (LOOKAHEAD.ONE.CHARACTER in DIGITS.TYPE) then 
STATE : = 7* 

GETNEXTCHARACTER( NEXT.CHARACTER, LOOKAHEAD.ONE.CHARACTER)* 
elsif (LOOKAHEAD.ONE.CHARACTER = ' + ■) then 
STATE := 6* 

GETNEXTCHARACTER( NEXT.CHARACTER, LOOKAHEAD.ONE.CHARACTER ) * 
else 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE ) * 
end if* 

when others => null* 
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end cases 
end loop s 

end GET_NUMERIC_LIT s 



end NUMERICS 
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— ***************************************************************- 



— TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: 

— DATE CREATED: 

— LAST MODIFIED: 



PACKAGE PARSER_0 
09 OCT 86 
OS DEC 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



— DESCRIPTION: This package contains eight functions that 

make up the highest level productions for our top-down, -- 

— recursive descent parser. 



— *************************************************************** — 



with PARScR_l , PARSER_2, PARSER^, BYPASS_FUNCTICN , HALSTEAD_METRIC , 
GLOBAL_PARSER, GLOBAL, TEXT_IO* 

use PARSER_1 , PARSER_2, PARSER_3, BYPASS_FUNCTION , HALSTEAD_METRIC , 
GLOBAL_PARSER , GLOBAL, TEXT_IO* 

package PARSER_0 is 

function COMPILATION return boolean * 
function COMPILATION_UNIT return boolean * 
function CONTEXT_CLAUSE return boolean* 
function BASIC_UNIT return boolean* 
function LIBRARY_UNIT return boolean * 
function SECONDARY_UNIT return boolean * 
function LIBRARY_UNIT_BODY return boolean * 
function SUBUNIT return boolean* 
end PARSE R_0 * 



package body PARSER_0 is 

— COMPILATION — > [COMPILATION_UNIT ]+ 
function COMPILATION return boolean is 
begin 

put ("In compilation ")* new_line* 
if ( COMPILATION_UNIT ) then 

while ( COMPI LATION_UNIT ) loop 
null * 
end loop* 
return (TRUE)* 
else 

return ( FALSE ) * 
end if* 

end COMPILATION* 



— COMPI LATIONJJNIT — > CONTEXTS LAUSE BASIC.UNIT 
function COMPILATION_UNIT return boolean is 
begin 

if ( CONTEXT^C LAUSE ) then 
if ( BASIC JJNIT) then 
return (TRUE)* 

else 

return ( FALSE)* 
end if* 

else 

return ( FALSE ) J 
end if* 

end COMPI LATION_UNIT* 
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— CONTEXT_CLAUSE — > [with HITH_OR_USE_CLAUSE [use WITH_OR_USE_CLAUSE 1* 1* 
function CONTEXT_CLAUSE return boolean is 
begin 

while ( BYPASS( TOKEN_WITH ) ) loop 

if not ( HITH_OR_USE_CLAUSE ) then 
SYNT AX_E RROR ( "Context clause" ) } 
end i f * 

while ( BYPASS ( TOKEN_USE ) ) loop 

if not ( WITH_OR_USE_CLAUSE ) then 
SYNT AX_E RROR ( "Context clause" ) } 
end i f } 

end loop} — inner while loop 

end loop} -- outer while loop 

return (TRUE)} 
end CONTEXT_CLAUSE } 



— BASIC_UNIT — > LIBRARY_UNIT 

— > SECOND ARY_UNIT 
function BASIC_UNIT return boolean is 
begin 

if ( LIBRARY_UNIT ) then 
return (TRUE)} 
els if ( SECONDARY_UNIT ) then 
return (TRUE); 
else 

return (FALSE)} 
end i f } 

end BASIC_UNIT } 



— LIBRARY_UNIT — > procedure PROCEDURE JJNIT 
— > function FUNCTIONJJNIT 
— > package PACKAGE_DECLARATION 
— > generic GENERIC.DECLARATION 
function LIBRARY_UNIT return boolean is 
begin 

if ( BYPASS ( TOKEN_PROCEDURE ) ) then 

DECLARE_TYPE := PROCEDURE_DECLARE } 
if ( PROCEDURE_UNIT ) then 
return (TRUE)} 
else 

SYNT AX_E RROR ( "Library unit")} 

end if} — if procedure_uni t statement 

elsif ( BYPASSt TOKEN_FUNCTION ) ) then 
DECLARE_TYPE : a FUNCTION_DECLARE } 
if ( FUNCTI0N_UNIT ) then 
return (TRUE)} 
else 

SYNTAX_ERROR( "Library unit")} 

end if} — if funct ion_unit statement 

elsif ( BYPASS( TOKEN_PACKAGE ) ) then 
DECLARE_TYPE := PACKAGE_DECLARE } 
if ( PACKAGE_DECLARATION ) then 
return (TRUE)} 
else 

SYNTAX_ERROR( "Library unit")} 

end if} — if package_declarat ion 

elsif ( BYPASS( TOKEN_GENERIC ) ) then 
if ( GENERIC_DECLARATION ) then 
return (TRUE)} 
else 



SYNTAXES RROR ( "Library unit")} 
end if} 
else 



— if generic_declaration 



return (FALSE)} 
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end i f ; 

and LIBRARY_UNIT ; 



— SECOND ARY_UNIT — > LIBRARY_UNIT_B0DY 
— > SUBUNIT 

function SECONDARY_UNIT return boolean is 
begin 

if ( LIBRARY_UNIT_BODY ) then 
return (TRUE)* 
a Is if (SUBUNIT) then 
return (TRUE); 
else 

return ( FALSE ) ; 
end if 5 

end SECONDARY_UNIT ; 



— LIBRARY_UNIT_BODY — > procedure PROCEDURE_UNIT 
— > function FUNCTION JJNIT 
--> package PACKAGE_DECLARATION 
— > generic GENERIC_DECLARATION 
function LIBRARY_UNIT_BODY return boolean is 
begin 

if ( BYPASS! TCKEN_?ROCEDURE ) ) then 
DECLARE_TYPE := PROCEDURE_QECLARE ; 
if (PROCEDUREJJNIT) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Library unit body"); 
end if; — if procedure_uni t statement 

elsif ( BYPASS( TOKEN_FUNCTION ) ) then 
DECLAREJTYPE := FUNCTION_DECLARE ; 
if ( FUNCTION_UNIT ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Library unit body"); 
end if; — if function_uni t statement 

elsif ( BYPASS! TOKEN_PACKAGE) ) then 
DECLARE_TYPE := PACKAGE_DECLARE ; 
if ( PACKAGE_DECLARATION ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Library unit body"); 
end if; — if package_declarat ion 

else 

return (FALSE); 

end if; -- if bypass! token_procedure ) 

end LIBRARY JJNIT.BODY; 



— SUBUNIT — > separate (NAME) PROPER.BODY 
function SUBUNIT return boolean is 
begin 

if ( BYPASS! TOKEN_SEPARATE ) ) then 

if ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if (NAME) then 

if ( BYPASS! TOKEN_RIGHT_PAREN ) ) then 
if ( PROPER_BODY ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Subunit" ) ; 

end if; — if proper_body statement 

else 

SYNTAX_ERROR( "Subunit" ) ; 

end if; — if bypass! token_right_pa ren ) 
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if name statement 



else 

SYNTAX_ERROR( "Subuni t" ) * 
end if* 
else 

SYNTAX_ERROR( "Subunit" ) * 
end if* — if bypass ( token_lef t_pa ren ) 

else 

return ( FALSE ) * 

end if* — if bypass ( token_sepa rate ) 

end SUBUNIT* 

end PARSE R_0 * 



105 



--*************************************************************** — 



— TITLE: 



AN ADA SOFTWARE METRIC 



MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 

AUTHORS: 



PACKAGE PARSER_1 
17 JUL 86 
03 DEC 86 

LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains thirty-six functions 

-- that make up the top level productions for our top-down*-- 

recursive descent parser. Each function is preceded 
by the grammar productions they are implementing. 

— ***************************************************************-- 



with PARSER_2, PARSER_3> BYPASS_FUNCTION , HALSTEAD_METRIC , GLOBAL_PARSER , 
GLOBAL * 

use PARSERS, PARSER_3, BYPASS_FUNCTION , HALSTE AD_METRIC , GL0BAL_PARSER , 
GLOBAL * 

package PARSER_1 is 

function GENERIC_DECLARATION return boolean * 

function GENERIC_PARAMETER_DECLARATION return boolean* 

function GENERIC_FORMAL_PART return boolean* 

function PROCEDURE_UNIT return boolean* 

function SUBPROGRAM_BODY return boolean* 

function FUNCTI0N_UNIT return boolean* 

function FUNCTION _UNIT_TAIL return boolean* 

function FUNCTI0N_B0DY return boolean* 

function FUNCTION_BODY_TAIL return boolean* 

function TASK_DECLARATION return boolean* 

function TASK_B0DY return boolean* 

function TASK_BODY_TAIL return boolean* 

function PACKAGE_DECLARATION return boolean* 

function PACKAGE_UNIT return boolean* 

function PACKAGE_BODY return boolean* 

function PACKAGE_BODY_TAIL return boolean* 

function PACKAGE_TAIL_END return boolean* 

function DECLARATIVE_PART return boolean* 

function BASIC_DECLARATIVE_ITEM return boolean* 

function BASIC_DECLARATION return boolean* 

function LATER_DECLARATIVE_ITEM return boolean* 

function PR0PER_B0DY return boolean* 

function SEQUENCE_OF_ST ATEMENTS return boolean* 

function STATEMENT return boolean* 

function COMPOUND_STATEMENT return boolean* 

function BLOCK_STATEMENT return boolean* 

function IF_STATEMENT return boolean* 

function CASE_STATEMENT return boolean* 

function CASE_ST ATEMENT_ALTERNATIVE return boolean* 

function L00P_STATEMENT return boolean* 

function EXCEPTION_HANDLER return boolean* 

function ACC E PT_ST AT E ME NT return boolean* 

function SELECT_STATEMENT return boolean* 

function SELECT_STATEMENT_TAIL return boolean* 

function SE LECT_ALTERNATIVE return boolean* 

function SELECT_ENTRY_CALL return boolean* 

end PARSER_1 * 



package body PARSE R_1 is 

— GENERIC_DECLARATION — > C GENERIC_PARAMETER_DECLARATION ?] 

GENERIC_FORMA L_PART 
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function GENERIC_DECLARATION return boolean is 
begin 

if ( GENERIC_PARAMETER_DECLARATION ) then 
null * 
end if* 

if ( GENERIC_FORMAL_PART ) then 
returnt TRUE ) * 
else 

return (FALSE)* 
end i f * 

end GENERIC_DECLARATION * 



GENE RIC_PARAMETER_DECLARAT ION — > IDENTIFIER_LIST : [MODE ?] NAME 

C : - EXPRESSION ?J * 



_ _ 


— > 


type 

is 


private C DISCRIMINANT.PART 
PRIVATE_TYPE_OECLARATION i 


?] 


— — 


— > 


type 

is 


private C DISCRIMINANT_PART 
GENERIC_TYPE_DEFINITION \ 


?] 


— 


— > 


with 


procedure PROCEDURE_UNIT 




— 


— > 


with 


function FUNCTION_UNIT 





function GENERlC_PARAMETER_DECLARATION return boolean is 
begin 

if ( IDENTIFIER_LIST ) then 

if (BYPASS(TOKEN_COLON) ) then 
if (MODE) then 
null * 

end if* — if mode statement 

if (NAME) then — check, for type_mark 

if ( BYPAS3( TOKEN_AS$IGNMENT ) ) then 
if (EXPRESSION) then 
null * 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if expression statement 

end if* — if bypass ( token_ass ignment ) 

if ( BYPASSt TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass( token_semicolon ) 

else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if type_mark statement 

else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* --if bypass ( token_colon ) 

els if ( BYPASS( TOKEN_TYPE ) ) then 

if ( BYPASS( TOKEN_IDENTI FIER ) ) then 
if ( DISCRIMINANT_PART ) then 
null * 

end if* -- if discriminant_part 

if ( BYPAS$( TOKEN_IS ) ) then 

if ( PRIVATE_TYPE_DECLARATION ) then 
if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass ( token_semico Ion ) 

elsif ( GENERIC_TYPE_DEFINITION ) then 
if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass ( token_semicolon ) 

else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if private_type_declarat ion 
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else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass ( token_ is ) 

else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass ( token_ident if ier ) 

elsif ( BYPASS( TOKEN_WITH ) ) then 

if (BYPASS(TOKEN_PROCEDURE)) then 
DECLARE_TYPE := PROCEDURE_DECLARE * 
if ( PROCEDURE^ UNIT ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if procedure_uni t statement 

elsif (BYPASS( TOKEN_FUNCTICN ) ) then 
DECLARE_TYPE := FUNCTION_OECLARE * 
if ( FUNCTIONJJNIT ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if function_uni t statement 

else 

SYNTAX_ERROR( "Generic parameter declaration")* 
end if* — if bypass ( token_procedure ) 

else 

return (FALSE)* 

end if* — if identi f ier_list 

end GENERIC_PARAMETER_DECLARATION * 



— GENERIC_FORMAL_PART — > procedure PROCEDURE.UNIT 

— > function FUNCTION_UNIT 
— > package PACKAGE_DECLARATION 
function GENERIC_FORMAL_PART return boolean is 
begin 

if ( BYPASS( TOKEN_PROCEDURE ) ) then 
DECLARE_TYPE := PROCEDURE_DECLARE * 
if (PROCEDURE_UNIT) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic formal part")* 
end if* --if procedure_unit statement 

elsif (BYPASS(TOKEN_FUNCTION) ) then 
DECLARE_TYPE := FUNCTION_DECLARE * 
if ( FUNCTION_UNIT ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( “Generic formal part")* 
end if* — if funct ion_uni t statement 

elsif ( BYPASS( TOKEN_PACKAGE ) ) then 
DECLARE_TYPE := PACKAGE^DECLARE * 
if (PACKAGE_DECLARATION) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Generic formal part")* 
end if* — if package_declarat ion 

else 

return (FALSE)* 
end if* 

end GENERIC_FORMAL_PART* 



— PROCEDURE_UNIT — > identifier [ FORMAL_PART ?1 is SUBPROGRAM_BODY 
— > identifier [ FORMAL__PART ?] * 

— > identifier [ FORMAL_PART ?] renames NAME * 
function PROCEDURE_UNIT return boolean is 
begin 
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DECLARATION := TRUE ) 
if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL + 1) 
if ( FORMAL_PART ) then 
null) 

end if) -- if formal part statement 

if ( BYPASS <TOKEN_IS)) then 
if ( SUBPROGRAM_BODY ) then 

SCOPEJ.EVEL := SCOPE_LEVEL - 1) 
return (TRUE)) 
else 

SYNTAX_ERROR( "Procedure unit" )) 

end if) — if subprogram body statement 

els if ( BYPASS( TOKEN_SEMICOLON ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1) 
return ( TRUE i ) 

els if ( BYPASS! 70KEN_RENAMES ) ) then 
if (NAME) then 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1) 
return (TRUE)) 
else 

SYNTAX_ERROR( "Procedure unit" )) 

end if) -- if bypass ( token_semicolon ) 

else 

SYNT AX_ERROR( "Procedure unit" )) 
end if) --if name statement 

end if) — if bypass ( token_is ) 

else 

return (FALSE)) 

end if) -- if bypass( token_identif ier ) 

end PROCEDURE_UNIT ) 



— SUBPROGRAM_BODY — > new NAME [ GENERIC_ACTUAL_PART ?] ) 

— > separate ) 

--> <> ) 

--> [ DECLARATIVE_PART ?] begin SEQUENCER F_STATEMENTS 

[exception [ EXCEPTION_HANDLER )+ ?1 end [DESIGNATOR ?] ) 
--> NAME ) 

function SUBPROGRAM_BODY return boolean is 
begin 

DECLARATION := TRUE) 
if ( BYPASS( TOKEN_NEW ) ) then 
if (NAME) then 

if (GENERIC_ACTUAL_PART) then 
null ) 

end if) — if generic actual part 

if ( BYPASSt TOKEN_SEMICOLON ) ) then 
return ( TRUE ) ) 
else 



SYNTAX_ERROR( "Subprogram body" 
end if) 
else 

SYNTAX_ERROR( "Subprogram body" ) ) 
end if) 

els if ( BYPASS! TOKEN_SEPARATE ) ) then 
if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)) 
else 

SYNT AX_E RROR ( "Subprogram body" ) ) 
end if) 

els if (BYPASS(TOKEN_BRACKETS) ) then 
if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)) 
else 

SYNT AX_E RROR ( "Subprogram body" ) ) 
end if) 



) 

— if bypass ( token_semicolon ) 



— if name statement 



-- if bypass ( token_semicolon ) 



— if bypass ( token_semi co Ion ) 
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elsif (DECLARATIVE_PART) then 
if ( BYPASS ( TOKEN_BEGIN ) ) then 
DECLARATION := FALSE * 
if (SEQUENCE_OF_STATEMENTS) then 

if ( BYPASSt TOKEN_EXCEPTION ) ) then 
if (EXCEPTION_HANDLER) then 

while ( EXCEPTION_HANDLER ) loop 
null * 
end loop * 
else 

SYNTAX_ERROR( "Subprogram body" ) * 

end if* — if except ion_handler statement 

end if* — if bypass ( token_except ion ) 

if ( BYPASS( TOKEN_END ) ) then 
if (DESIGNATOR) then 
null * 

end if; — if designator statement 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
DECLARATION := TRUE* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Subprogram body" )* 
end if* — if bypass ( token_semicolon ) 

else 

SYNT AX_ERROR( "Subprogram body" )* 
end if* — if bypass ( token_end ) 

else 

SYNTAX_ERROR( "Subprogram body" ) * 

end if* — if sequence of statements 

else 

SYNTAX_ERROR( "Subprogram body" ) * 
end if* — if bypass ( token_beg in ) 

elsif ( BYPASS ( TOKEN.BEGIN ) ) then 
DECLARATION := FALSE* 
if (SEQUENCE_OF_STATEMENTS) then 

if ( BYPASS( TOKEN_EXCEPTION ) ) then 
if (EXCEPTION.HANDLER) then 

while ( EXCEPTION_HANDLER ) loop 
null* 
end loop* 
else 

SYNTAX_ERROR( "Subprogram body" )* 

end if* — if except ion_handler statement 

end if* — if bypass ( token_except ion ) 

if ( BYPASS( TOKEN_END ) ) then 
if (DESIGNATOR) then 
null * 

end if* — if designator statement 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
DECLARATION := TRUE* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Subprogram body" ) * 
end if* — if bypass ( token_semicolon ) 

else 

SYNT AX_E RROR ( "Subprogram body" ) * 
end if* — if bypass ( token_end ) 

else 

SYNTAX_ERROR( "Subprogram body" )* 

end if* — if sequence of statements 

elsif (NAME) then 

if ( BYPASS* TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Subprogram body" ) * 

end if* — if bypass ( token_semicolon ) 

else 

return (FALSE)* 

end if* -- if bypass ( token_new ) 



no 



end SUBPROGRAM_BODY ; 



— FUNC T I ON_UNI T — > DESIGNATOR FUNCTION_UNIT_TAIL 
function FUNCTION_UNIT return boolean is 
begin 

DECLARATION := TRUE ; 
if (DESIGNATOR) then 

SCOPE.LEVEL := SCOPE_LEVEL + 1; 
if ( FUNCTION_UNIT_TAIL ) then 

SCOPE_LEVEL := SCOPE_LEVEL - 1; 
return (TRUE); 
else 

SYNTAX_ERROR( "Function unit"); 
end if; 
else 

return (FALSE); 
end i f ; 

end FUNCTION_UNIT ; 



— FUNCTION^ UNIT — TAIL --> is new NAME ( GENERIC_ACTUAL_PART ?] ; 

— > [FORMAL_PART ?] return NAME FUNCTION_BODY 
function FUNCTION_UNIT_TAIL return boolean is 
begin 

if ( BYPASS( TOKEN_IS ) ) then 

if (BYPASS(TOKEN_NEH) ) then 
if (NAME) then 

if ( GENERIC_ACTUAL_PART ) then 
null ; 

end if; — if generic actual part 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if bypass ( token_semicolon ) 

else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if name statement 

else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if bypass ( token_new ) 

elsif (FORMAL_PART) then 

if ( BYPASS( TOKEN_RETURN ) ) then 

if (NAME) then — check for type_mark 

if ( FUNCTION_BODY ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if function body statement 

else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if type mark statement 

else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if bypass ( token_return ) 

elsif (BYPASS(TOKEN_RETURN)) then 

if (NAME) then — check for type_mark 

if ( FUNCTION_BODY ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Function unit tail"); 
end if; — if function body statement 

else 

SYNTAX_ERROR( "Function unit tail"); 
end i f ; 
else 



if type mark statement 



if bypass ( token_is ) 



return ( FALSE )* 
end i f * 

end FUNCTION JJNIT_T AIL* 



— FUNCTlON_BODY — > is C FUNCTlON_BODY_TAIL ?] 
— > * 

function FUNCTION_BODY return boolean is 
begin 

if < BYPASS! TOKEN_IS)) then 

if ( FUNCTION_BODY_TAIL ) then 
null * 
end i f * 

return (TRUE)* 

elsif ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

return ! FALSE)* 
end i f * 

end FUNCTION_BODY * 



— FUNC T I ON_BO D Y_T AIL — > separate * 

— > <> * 

— > SUBPROGRAM_BODY 
— > NAME * 

function FUNCTION_BODY_TAIL return boolean is 
begin 

if ( BYPASS( TOKEN_SEPARATE ) ) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX.ERROR! "Function body tail")* 
end if* -- if bypass! token_semicolon ) 

elsif ! BYPASS! TOKEN_BRACKETS ) ) then 
if ( BYPASS! TOKEN_SEMICOLON)) then 
return ! TRUE ) * 
else 

SYNTAX_ERROR( "Function body tail")* 
end if* — if bypass! token_semicolon ) 

elsif ! SUBPROGRAM_BODY ) then 
return (TRUE)* 
elsif (NAME) then 

if ( BYPASS! TOKEN_ SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Function body tail")* 
end if* — if bypass! token_semicolon ) 

else 

return (FALSE)* 

end if* — if bypass! token_sepa rate ) 

end FUNCTION_BODY_TAIL* 



— TASK_DECLARATION — > body TASK_BODY * 

— > [type ?] identifier C is C ENT RY_DECLARATION ]* 

[ REPRESENT ATION_CLAUSE ]* end [identifier ?] ?] * 
function TASK_DECLARATION return boolean is 
begin 

DECLARATION := TRUE* 
if ( BYPASS! TOKEN_TYPE ) ) then 
null* 

end if* --if bypass ( token_type ) 

if ( BYPASS! TOKEN_BODY ) ) then 
if (TASK_BODY) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
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return (TRUE)* 
else 

SYNTAX_ERROR( "Task declaration" ) * 
end i f* 
else 

SYNTAX_ERROR( "Task declaration" ) * 
end if* — if task_body statement 

elsif ( BYPASS( TOKEN_IDENTIFIER ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL + 1* 
if (BYPASS(TOKEN_IS)) then 

while ( ENTRY_DECLARATION ) loop 
null * 
end loop* 

while ( REPRESENT ATION_CLAUSE ) loop 
null * 
end looo * 

if (BYPASS(TOKEN_END ) ) then 

if ( BYPASS( TOKEN.IDENTIFIER ) ) then 
null * 

end if* — if bypass* token.ident if ier J 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
SCOPE_LEVEL := SCOPE.LEVEL - 1* 
return (TRUE)* 
else 

SYNTAX_ERROR< "Task declaration" ) * 
end if* -- if bypass* token.semicolon ) 

else 

SYNTAX_ERROR( "Task declaration" )* 
end if* -- if bypass ( token_end ) 

elsif ( BYPASS* TOKEN.SEMICOLON ) ) then 
SCOPE.LEVEL := SCOPE. LEVEL - 1* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Task declaration" ) * 
end if* — if bypass ( token. is ) 

else 

return (FALSE)* 

end if* — if bypass ( token.body ) 

end TASK.DECLARATION* 



— TASK.BOOY — > identifier is T ASK.BODY.T AI L 
function TASK_BODY return boolean is 
begin 

if ( BYPASS! TQKEN_IDENTIFIER)) then 
SCOPE.LEVEL := SCOPE_LEVEL + 1* 
if ( BYPASS( TOKEN_IS ) ) then 
if ( T ASK.BOD Y_T AI L ) then 

SCOPE_LEVEL := SCOPE.LEVEL - 1* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Task body" ) * 

end if* — if task.body.tail statement 

else 

SYNTAX_ERROR( "Task body" ) * 

end if* --if bypass ( token_ is ) 

else 



return (FALSE)* 
end if* 

end TASK.BODY* 



— if bypass( token.ident if ier ) 



— TASK_BODY_TAIL — > separate 

--> CDECLARATIVE.PART ?] begin SEQUENCE_OF_STATEMENTS 

[exception C EXCEPTION.HANDLER 1+ ?] end [identifier ?] 
function TASK_BODY_TAIL return boolean is 
begin 
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DECLARATION := TRUE ; 
if * BYPASS* TOKEN_SEPARATE ) ) then 
return ( TRUE ) ; 

elsif ( DECLARATIVE_PART) then 
if * BYPASS* TOKEN_BEGIN)) then 
DECLARATION := FALSE ; 
if * SEQUENCE_OF_STATEMENTS ) then 

if * BYPASS* TOKEN_EXCEPTION ) ) then 
if * EXCEPTION.HANDLER) then 

while * EXCEPTI0N_HANDLER ) loop 
null ; 
end loop ; 
else 

SYNTAX_ERROR* "Task body tail"); 

end if; — if except ion_handler statement 

end if; — if bypass! token_except ion ) 

if * BYPASS* TOKEN_END ) * then 

if ( BYPASS* TOKEN_IDENTIFIER ) ) then 
null ; 

end if; — if bypass* token_ident if ier J 

DECLARATION TRUE; 
return (TRUE); 
else 

SYNTAX_ERROR* "Task body tail”); 
end if; — if byoass* token_end) 

else 

SYNTAX_ERROR* "Task body tail"); 

end if; — if sequence_of _sta tements 

else 

SYNTAX.ERROR* "Task oody tail"); 
end if; — if bypass* token_begin ) 

elsif * BYPASS* TOKEN_SEGIN ) ) then 
DECLARATION := FALSE; 
if * SEQUENCE_OF_STATEMENTS ) then 

if * BYPASS* TOKEN_EXCEPTION ) ) then 
if IEXCEPTION_HANDLER) then 

while * EXCEPTION_HANDLER ) loop 
null ; 
end loop; 
else 

SYNTAX_ERROR( "Task body tail"); 

end if; -- if exception^ handler statement 

end if; — if bypass* token_except ion ) 

if * BYPASS* TOKEN_END ) ) then 

if * BYPASS* TOKEN_IDENTIFIER ) ) then 
null ; 

end if; — if bypass* token_identif ier ) 

DECLARATION := TRUE; 
return (TRUE); 
else 

SYNTAX_ERROR* "Task body tail"); 
end if; — if bypass* token_end ) 

else 

SYNTAX_ERROR( "Task body tail"); 

end if; — if sequence_of_sta tements 

else 

return (FALSE); 

end if; — if bypass* token_separate ) 

end T ASK_BODY_T AIL ; 



— PACKAGE_DECLARATION — > body PACKAGE_BODY 

— > identifier PACKAGE_UNIT 
function PACKAGE_DECLARATION return boolean is 
begin 

DECLARATION := TRUE; 
if * BYPASS* TOKEN_BODY ) ) then 
if * PACKAGE.BODY ) then 
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return (TRUE)* 
else 

SYNT AX_E RROR! "Package declaration" ) * 
end if* — if package unit statement 

elsif ( BYPASS! TOKEN_IDENTIFIER ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL + 1* 
if (PACKAGE.UNIT) then 

SCOPE_LEVEL := SCOPE_LEVEL - 1* 
return (TRUE)* 
else 

SYNT AX_ERROR( "Package declaration" ) * 
end i f j — if package_unit_tail statement 

else 

return (FALSE)* 

end if* — if bypass! token_package ) 

end PACKAGE_DECLARATION* 



— PACKAGE_BODY — > identifier is PACKAGE_BODY__TAIL 
function PACKAGE^ BODY return boolean is 
begin 

if ( BYPASS! TOKEN__IDENTIFIER ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL + 1* 
if ( BYPASS! TOKEN.IS ) ) then 

if (PACKAGE_BODY_TAIL ) then 

SCOPE.LEVEL := SCOPEJ.EVEL - 1* 
return (TRUE)* 
else 

SYNT AX_c RROR ( "Package body" ) * 

end if* — if package_body_tail statement 

else 

SYNTAXES RROR! "Package body" ) * 

end if* — if bypass! token_is ) 

else 

return (FALSE)* 

end if* — if bypass! token_ident if ier ) 

end PACKAGE__BODY * 



— P ACKAGE_BODY_T AI L — > separate * 

— > C DECLARATIVE_PART ?] [begin SEQUENCE_OF_ STATEMENTS 
[exception [ EXCEPTION_HANDLER ]+ ?1 ?] 
end [identifier ?] * 

function PACKAGE_BODY_TAIL return boolean is 
begin 

DECLARATION := TRUE* 

if ( BYPASS! TOKEN_SEPARATE ) ) then 

if ( BYPASS! TOKENJSEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Package body tail")* 
end if* — if bypass! token_semico Ion ) 

elsif ( DECLARATIVE_PART ) then 
DECLARATION := FALSE* 
if ( BYPASS! TOKEN_BEGIN ) ) then 

if < SEQUENCE _OF_STATEMENTS) then 

if ( BYPASS! TOKEN_EXCEPTION)) then 
if ( EXCEPTION_HANDLER ) then 

while ( EXCEPTION_HANDLER ) loop 
null* 
end loop* 
else 

SYNT AX_ERROR( "Package body tail")* 
end if* — if except ion_handler statement 

end if* — if bypass! token_except ion ) 

if ( BYPASS! TOKEN_END ) ) then 

if ( BYPASS! TOKEN_IDENTIFIER ) ) then 
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null } 

end if} — if bypass* token_ident if ier ) 

if * BYPASS* TOKEN.SEMICOLON)) then 
DECLARATION := TRUE} 
return (TRUE)} 
else 

SYNTAX_ERROR( "Package body tail")} 
end if} — if bypass ( token_semicolon ) 

else 

SYNTAX_ERROR* "Package body tail")} 
end if} — if bypass! token_end ) 

else 

SYNTAX_ERROR( "Package body tail")} 
end if} — if sequence. of_statements 

elsif ( BYPASS* TOKEN_END ) ) then 

if ( 3YPASS* TOKEN_IDENTIFIER ) ) then 
null } 

end if} — if bypass* token_ identifier ) 

if * BYPASS* TOKEN_SEMICOLON ) ) then 
DECLARATION := TRUE} 
return (TRUE)} 
else 

SYNTAX_ERROR* "Package body tail”)} 
end if} — if bypass* token_semicolon ) 

else 

SYNTAX_ERROR* "Package body tail")} 
end if} — if bypass* token_begin ) 

elsif ( BYPASS* TOKEN_BEGIN ) ) then 
DECLARATION := FALSE} 
if (SEQUENCE_OF_STATEMENTS) then 

if ( BYPASS* TOKEN_EXCEPTION ) ) then 
if * EXCEPTION_HANDLER ) then 

while ( EXCEPTICN_HANDLER ) loop 
null } 
end loop } 
else 

SYNTAX_ERROR* "Package body tail")} 
end if} — if except ion_handler statement 

end if} — if bypass* token_except ion ) 

if * BYPASS* TOKEN_END ) ) then 

if * BYPASS* TOKEN_IDENTIFIER ) ) then 
null } 

end if} — if bypass* token_ identifier ) 

if * BYPASS* TOKEN_SEMICOLON ) ) then 
DECLARATION := TRUE} 
return (TRUE)} 
else 

SYNTAX_ERROR* "Package body tail" )} 
end if} — if bypass* token_semico Ion ) 

else 

SYNTAX_ERROR* "Package body tail”)} 
end if} — if bypass* token_end ) 

else 

SYNTAX_ERROR* "Package body tail")} 
end if} — if sequence_of_statements 

elsif * BYPASS* TOKEN.END ) ) then 

if * BYPASS* TOKEN_IDENTIFIER ) ) then 
null } 

end if} — if bypass * token_ident if ier ) 

if * BYPASS* TOKEN_SEMICOLON ) ) then 
return (TRUE)} 
else 

SYNTAX_ERROR* "Package body tail")} 
end if} — if bypass* token_semi colon ) 

else 

return (FALSE)} 

end if} — if bypass* token_sepa rate ) 

end PACKAGE_BODY_TAIL } 



116 



— PACKAGE_UNIT — > is PACKAGE_TAIL_END 
— > renames NAME * 

function PACKAGE_UNIT return boolean is 
begin 

if ( BYPASS* TOKEN_IS ) ) then 
if ( PACKAGE_TAIL_END ) then 
return * TRUE ) * 
else 

SYNTAX_ERROR* "Package unit" )* 
end if* 

els if * BYPASS( TQKEN_RE NAMES ) ) then 
if (NAME) then 

if ( BYPASS* TOKEN_$EMICOLON M then 
return ( TRUE ) * 
else 

SYNTAX_cRROR* "Package unit" ) * 

end if* — if bypass* token^semicolon ) 

else 

SYNTAX_cRROR* "Package unit" )* 
end if* — if name statement 

else 

return ( FALSE )* 

end if* -- if bypass! token_is ) 

end PACKAGEJJNIT * 



— PACKAG£_TAIL_END — > new NAME C GENERIC _ ACTUAL^ PART ?3 > 

— > CBA5IC_0ECLARATIVE_ITEMJ* [private 

C BASIC_DECLARATIVE_ITEM J* ?3 end [identifier ?] * 
function PAC!<AGc_TAIl_SND return boolean is 
begin 

if * BYPASS* TOKEN.NEW)) then 
if (NAME) then 

if ( GENERIC_ACTUAL_PART ) then 
null * 

end if* — if gene ric_actua l_part statement 

if ( BYPASS* TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Package tail end")* 
end if* — if bypass* token_semico Ion ) 

else 

SYNTAX_ERROR* "Package tail end")* 
end if* — if name statement 

elsif *BASIC_DECLARATIVE_ITEM) then 
while * BASIC_DECLARATIVE_ITEM ) loop 
null * 
end loop * 

if * BYPASS* TOKEN_PRIVATE ) ) then 

while * BASIC_DECLARATIVE_ITEM ) loop 
null * 
end loop * 

end if* — if bypass* token_private ) 

if * BYPASS* TOKEN_END)) then 

if * BYPASS* TOKEN_IDENTIFIER) ) then 
null * 
end if* 

if * BYPASS* TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR* "Package tail end")* 
end if* — if bypass* token_semicolon ) 

else 

SYNTAX_ERROR* "Package tail end")* 
end if* — if bypass* token_end ) 

elsif ( BYPASS* TOKEN.PRIVATE )) then 
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while * BASIC_DECLARATIVE_ITEM ) loop 
null ) 
end loop) 

if * BYPASS* TOKEN_END)) then 

if * BYPASS* TOKEN_IDENTIFIER ) ) then 
null ) 
end i f ) 

if ( BYPASS* TOKEN_SEMICOLON ) ) then 
return (TRUE)) 
else 

SYNTAX_ERROR* "Package tail end")) 
end if) — if bypass ( token_semicolon ) 

else 

SYNTAX.ERROR* "Package tail end"); 
end if) -- if bypass* token_end ) 

elsif * BYPASS* TOKEN.END ) ) then 

if * BYPASS* TOKEN_IDENTIFIER ) ) then 
null) 
end i f ) 

if ( BYPASS* T0KEN_3EMIC0L0N ) ) then 
return (TRUE)) 
else 

SYNTAX_ERRORf "Package tail end")) 
end if; — if bypass* token_semico Ion ) 

else 

return t FALSE ) ) 

end if) — if bypass* token_new ) 

end PACKAGE_TAIL_END) 



— 3ASIC_3ECLARATIVE_ITEM — > 8 ASIC DECLARATIVE 

— > REPRESENT ATIQN_CLAUSc 
— > use WITH_OR_USE_CLAUSE 
function BASIC_DECLARATIVE_ITEM return boolean is 
begin 

if ( BASIC_DECLARATION ) then 
return * TRUE ) ) 

elsif (REPRESENTATION_CLAUSE ) then 
return (TRUE)) 

elsif ( BYPASS* TOKEN_USE ) ) then 
if (WITH_OR_USE_CLAUSE ) then 
return * TRUE )) 
else 

SYNTAX_ERROR* "Basic declarative item")) 
end i f ) 
else 

return (FALSE)) 
end i f ) 

end BASIC_DECLARATIVE_ITEM ) 



— DECLARATIVE_PART --> [ BASIC_DECLARATIVE_ITEM 1* ( LATER_DECLARATIVE_ITEM 

function DECLARATIVE_PART return boolean is 
begin 

while (BASIC_DECLARATIVE_ITEM) loop 
null ) 
end loop) 

while * LATER_DECLARATIVE_ITEM ) loop 
null ) 
end loop) 
return (TRUE)) 
end DECLARATIVE_PART ) 



— BASIC_DECLARATION — > type TYPE^DECLARATION 

— > subtype SUBTYPE_DECLARATION 
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--> procedure PROCEDURE_UNIT 
--> function FUNCTIONJJNIT 
— > package PACKAGE_DECLARATION 
— > generic GENERIC_DECLARATION 
— > IDENTIFIERJDECLARATION 
— > task TASKJDECLARATION 
function BASIC_DECLARATION return boolean is 
begin 

if ( BYPASSt TOKEN_TYPE ) ) then 
if ( TYPE_DECLARATION ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Basic declaration" ) * 
end if* 

elsif (BYPASS(TOKEN_SUBTYPE)) then 
if ( SUBTYPE_DECLARATION ) then 
return ( TRUE ) * 
else 

$YNTAX_ERROR( "Basic declara t ion" ) * 
end if* 

elsif ( BYPASS( TOKEN_PROCEDURE ) ) then 
DECLARE_TYPE := PROCEDURE_DECLARE * 
if ( PROCEDURE_UNIT ) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Basic declaration" ) * 
end if* — if procedure_uni t statement 

elsif < BYPASS* TOKEN_FUNCTION ) ) then 
DECLARE_TYPE := FUNCTION_DECLARE * 
if ( FUNCTION__UNIT ) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Basic declaration" ) * 
end if* — if funct ion_uni t statement 

elsif ( BYPASS( TOKEN_PACKAGE ) ) then 
DECLARE_TYPE := PACKAGE_DECLARE * 
if ( PACKAGE_DECLARATION ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Basic declaration" ) * 
end if* — if package_declarat ion 

elsif ( BYPASS* TOKEN_GENERIC ) ) then 
if ( GENERIC_DECLARATION ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Basic declaration")* 
end if* --if generic_declara tion 

elsif ( IDENTIFIER_DECLARATION ) then 
return (TRUE)* 

elsif ( BYPASS( TOKEN_TASK ) ) then 
DECLARE.TYPE := TASK_DECLARE * 
if ( TASK_DECLARATION ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Basic declaration" ) * 
end if* 
else 

return (FALSE)* 
end if* 

end BASIC_DECLARATION * 



— LATER_DECLARATIVE_ITEM — > PROPER_BODY 

— > generic GENERIC_DECLARATION 
— > use WITH_OR_USE_CLAUSE 
function LATER_DECLARATIVE_ITEM return boolean is 
begin 



if (PROPER_BODY) then 



— check for body_declaration 
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return (TRUE)* 

elsif ( BYPASS! TOKEN_GENERIC ) ) then 
if ( GENERIC_DECLARATION ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Later declarative 
end if* 

elsif ( BYPASS! TOKEN_USE ) ) then 
if (WITH_OR_USE_CLAUSE ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Later declarative 
end i f * 
else 

return (FALSE)* 
end i f * 

end LATER_DECLARATIVE_ITEM* 



item" )* 

-- if generic_declara tion 



i tern" ) * 

— if wi th_or_use_clause 



— PROPER_BODY — > procedure PROCEDURE_UNIT 
— > function FUNCTIONJJNIT 
— > package PACKAGE_DECLARATION 
— > task TASK_DECLARATION 
function PROPER_BODY return boolean is 
begin 

if ( BYPASS! TOKEN_PROCEDURE)) then 
DECLARE_TYPE := PROCEDURE_DECLARE * 
if (PROCEDURE_UNIT) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Proper body" ) * 

end if* -- if procedure_uni t statement 

elsif t BYPASS! TOKEN_FUNCTION 1 ) then 
DECLAREJTYPE := FUNCTION.DECLARE * 
if (FUNCTION_UNIT) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Proper body")* 

end if* — if funct ion_unit statement 

elsif ( BYPASS! TOKEN_PACKAGE ) ) then 
DECLARE_TYPE := PACKAGE_DECLARE * 
if (PACKAGE_DECLARATION) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Proper body" ) * 

end if* — if package_declara tion 

elsif ( BYPASS( TOKEN_TASK ) ) then 
DECLARE_TYPE := T ASK_DECLARE * 
if (TASK_DECLARATION) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Proper body")* 
end if* 
else 

return (FALSE)* 

end if* — if bypass! token_procedure ) 

end PROPER_BODY * 



— SEQUENCE_OF_ST ATEMENTS — > C STATEMENT 1 + 
function SEQUENCE_OF_STATEMENTS return boolean is 
begin 

if (STATEMENT) then 

while (STATEMENT) loop 
null * 
end loop* 
return (TRUE)* 
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else 

return ( FALSE )* 
end i f * 

end SEQUENCE_OF_STATEMENTS* 



— STATEMENT — > [LABEL ?] SIMPLE.STATEMENT 

— > [LABEL ?] COMPOUND_ST ATEMENT 
•function STATEMENT return boolean is 
begin 

if (LABEL) then 
null * 
end if* 

if (SIMPLEST ATEMENT) then 
return (TRUE)* 

els if ( COMPOUNO_STATEMENT ) then 
return (TRUE)* 
else 

return ( FALSE ) * 
end if* 

end STATEMENT* 



— COMPOUND_ST ATEMENT — > 

— > 

— > 

function COMPOUND _3T ATEMENT 
begin 



if IF_ST ATEMENT 
case CASE_STATEMENT 
L00P_3TATEMENT 
3L0CK_$TATEMENT 
accent ACCEPT_3T ATEMENT 
select 3ELEC7_STATEMENT 
return boolean is 



if ( BYPASS( TOKEN_IF ) ) then 

NESTING_METRIC( IF_C0NSTRUC7 ) * 
if ( I F_ST ATEMENT) then 
return (TRUE)* 



else 



SYNTAX_ERROR( "Compound statement" ) * 
end if* --if if_statement 

elsif (BYPASS(TOKEN_CASE ) ) then 
NESTING_METRIC ( CASE_CONSTRUCT ) * 
if ( CASE_ST ATEMENT ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Compound statement" ) * 
end if* — if case_statement 

elsif ( LOOP_STATEMENT ) then 
return (TRUE)* 

elsif ( BLOCK_STATEMENT ) then 
return (TRUE)* 

elsif ( BYPASS( TOKEN_ACCEPT ) ) then 
if ( ACCEPT_STATEMENT ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Compound statement" ) * 
end if* 

elsif (BYPASS(TOKEN_SELECT)) then 
if ( SELECT_STATEMENT ) then 
return (TRUE)* 
else 



SYNT AX_E RROR ( "Compound statement" ) * 
end if* 
else 

return (FALSE)* 
end i f * 

end COMPOUND_STATEMENT * 
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— BLOCK_STATEMENT — > [identifier : ?] [declare DECLARATIVE_PART ?] 

begin SEQUENCE_OF_STATEMENTS [exception 
tEXCEPTION_HANDLER]+ ?] ?] end [identifier ?] ) 
function BLOCK_STATEMENT return boolean is 
DECLARE_ST ATUS : boolean ) 
begin 

if (DECLARATION) then 

DECLARE_STATUS := TRUE ) 
else 

DECLARATION ;= TRUE ) 

DECLARE_STATUS := FALSE ) 
end i f ) 

DECLARE.TYPE := 3LOCK.OECLARE > 
if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
SCOPE.LEVEL := SCOPE_LSVEL + 1* 
if ( BYPASS( TOKEN_COLON i ) then 

SCOPE_LEVEL := SCOPE_LEVEL - 1) 
else 

SYNT AX_E RROR ( "Block statement’* ) ) 
end if) — if bypass ( token_colon ) 

else 

DECLARE_TYPE := VARIABLE_DECLARE ) 

end if) — if bypass( token_identi f ier ) 

if (BYPASS(T0KEN_DECLARE1) then 
SCOPE_LEVEL := SCOPE^LEVEL + 1) 
if ( DECLARATIVE_9ART ) then 
null ) 
else 

SYNTAXES RROR ( “Block statement" ) ) 

ena if; — if declarative_part statement 

end if) — if bypass ( token_aeclare ) 

if (BYPASS(T0KEN_3EGIN) ) then 
DECLARATION := FALSE ) 
if ( SEQUENCE_OF_STATEMENTS ) then 

if (SYPASS(TOKEN_EXCEPTION) ) then 
if ( EXCEPTION_HANDLER ) then 

while ( EXCEPTI0N_HANDLER ) loop 
null ) 
end loop) 
else 

SYNT AX_ERROR ( "Block statement" ) ) 

end if) — if except ion_handler statement 

end if) — if bypass ( token_except ion ) 

if ( BYPASS( TOKEN_END ) ) then 

if ( BYPASS! TOKEN_IDENTIFIER)) then 
null) 

end if) — if bypass! token_ident if ier ) 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1) 

DECLARATION := TRUE) 
return (TRUE)) 
else 

SYNT AX_E RROR ( "Block statement" ) ) 
end if) — if bypass! token_semicolon ) 

else 

SYNT AX_E RROR ( "Block statement" ) ) 
end if) — if bypass ( token_end ) 

else 

SYNT AX_E RROR ( "Block statement" ) ) 

end if) — if sequence_of_statements 

else 

if not ( DECLARE_STATUS ) then 
DECLARATION := FALSE) 
end if) 

return (FALSE)) 

end if) — if bypass ( token_beg in ) 

end BLOCK_STATEMENT) 
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— IF_STATEMENT — > EXPRESSION then SEQUENCE_OF_STATEMENTS 

Celsif EXPRESSION then SEQUENCE_OF_STATEMENTS 3* 

[else SEQUENCE__OF_STATEMENTS ?3 end if * 
function IF_STATEMENT return boolean is 
begin 

if (EXPRESSION) then 

if ( BYPASS( TOKEN_THEN ) ) then 

if ( SEQUENCE_OF_STATEMENTS ) then 
while ( BYPASS( TOKEN_ELSIF ) ) loop 
if (EXPRESSION) then 

if ( BYPASS( TOKEN_THEN ) 1 then 

if not ( SEQUENCE_OF_STATEMENTS ) then 
SYNTAX_ERROR( "If statement" ) * 

end if* -- if not sequence_of_sta tements 

else 

SYNTAX_ERROR( "If s tatement" ) * 
end if* — if bypass ( token_ then ) 

else 

SYNTAX_ERROR( "If statement" ) * 
end if* — if expression statement 

end loop* 

if ( BYPASS( TOKEN_ELSE ) ) then 

if (SEQ(JENCE_OF_STATEMENTS) then 
null* 
else 

SYNTAX_ERROR( "If statement")* 

end if* — if sequence_of_sta tements 

end if* — if bypass ( token_else ) 

if ( BYPASS( TOKEN_END ) ) then 
if ( 3YPASS( TOKEN_IF ) ) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
NESTING_METRIC( IF_END ) * 
return (TRUE)* 
else 

SYNTAX_ERROR( "If statement")* 
end if* — if bypass ( token_semicolon ) 

else 

SYNTAX_ERROR( "If statement")* 
end if* — if bypass( toKen_if ) 

else 

SYNTAX_ERROR( "If statement")* 
end if* — if bypass ( token_end ) 

else 

SYNTAX_ERROR( "If statement")* 

end if* — if sequence_of_s t a tements 

else 

SYNTAX__ERROR( "If statement")* 

end if* — if bypass ( toKen__ then ) 

else 

return (FALSE)* 

end if* -- if expression statement 

end IF_STATEMENT * 



— CASE_STATEMENT --> EXPRESSION is [CASE_STATEMENT_ALTERNATIVE ]+ end case * 
function CASE_STATEMENT return boolean is 
begin 

if (EXPRESSION) then 

if ( BYPASS( TOKEN_IS ) ) then 

if ( CASE_STATEMENT_ALTERNATIVE ) then 

while ( CASE_STATEMENT_ALTERNATIVE ) loop 
null * 
end loop* 

if ( BYPASS( TOKEN_END ) ) then 

if ( BYPASS( TOKEN_CASE ) ) then 

if ( BYPASS! TOKEN_SEMICOLON)) then 
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NESTING_METRIC( CASE_END ) * 
return (TRUE)* 
else 

SYNTAX_ERROR( "Case statement")* 
end if* — if bypass! token_semi colon ) 

else 

SYNTAX_ERROR( "Case statement")* 
end if* — if bypass! token_case ) 

else 

SYNTAX_ERROR( "Case statement" ) * 
end if* — if bypass! token_end ) 

else 

SYNTAX_ERROR< "Case statement" ) * 

end if* — if case_sta tement_al ternative 

else 

SYNTAX_ERROR( "Case statement" ) * 
end if* — if bypass! token_ is ) 

else 

return (FALSE)* 

end if* — if expression statement 

end CASE_STATEMENT * 



— C ASE_ST AT E ME NT_A LT E RNAT I VE — > when CHOICE I CHOICE ]* => 

SEQUENCE_OF_STATEMENTS 

function CASE_STATEMENT_ALTERNATIVE return boolean is 
begin 

if ( BYPASS! TOKEN_HHEN ) ) then 
if (CHOICE) then 

while ( BYPASS( T0KEN_3AR ) ) loop 
if not (CHOICE) then 

SYNTAX_ERROR( "Case statement alternative")* 
end if* — if not choice statement 

end loop * 

if ( BYPASS! TOKEN_ARROW ) ) then 

if (SEQUENCE_OF_STATEMENTS) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Case statement alternative")* 
end if* --if sequence_of_statements 

else 

SYNTAX_ERROR( "Case statement alternative")* 
end if* — if bypass! token_ar row ) 

else 

SYNTAX_ERROR( "Case statement alternative")* 
end if* -- if choice statement 

else 

return ( FALSE ) * 

end if* -- if bypass! token_when ) 

end CASE_STATEMENT_ALTERNATIVE * 



— LOOP_ST ATEMENT — > [identifier : ?] I ITERATION_SCHEME ? I loop 

SEQUENCEJDF_STATEMENTS end loop [identifier ?] * 
function LOOP_STATEMENT return boolean is 
begin 

if ( BYPASS! TOKEN_IDENTIFIER)) then 
if ( BYPASS! TOKEN_COLON ) ) then 
null * 
else 

SYNTAX_ERROR( "Loop statement" ) * 
end if* — if bypass! token_co Ion ) 

end if* — if bypass! token_identif ier ) 

if ( ITERATION_SCHEME ) then 
NO_ITERATION := FALSE* 

end if* — if i teration_scheme statement 

if ( BYPASS! TOKEN_LOOP)) then 
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if ( NO_ITERATION I then 

NESTING_METRIC ( LOOP_CONSTRUCT ) * 
else 

NCLITERATION : = TRUE * 
end i f * 

if ( SEQUENCE_OF_ST ATEMENTS ) then 
if ( BYPASS! TOKEN_END ) ) then 

if ( BYPASS! TOKEN_LOOP ) ) then 

if (BYPASS(TOKEN_IOENTIFIER) ) then 
null * 

end if* — if bypass ( toRen_ identifier ) 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
NESTING_METRIC( LOOP_END ) V 
return ( TRUE J * 
else 

3YNTAX_ERR0R( "Loop statement" ) * 
end it; — if bypass ( token_samicolon if 

else 

SYNTAX_ERROR( "Loop statement" ) * 
end if* — if bypass! token_ loop > 

else 

SYNTAX_ERROR( "Loop statement" )* 
end if* — if bypass { token_end ) 

else 

SYNTAX_ERROR( "Loop statement" ) * 

end if* — if sequence _o t_s ta tements 

else 

return (FALSE)* 

end if* -- if bypass! token_loop l 

end LOOP_STATEMENT * 



— EXCEPTION_HANOLER — > when EXCEPTIGN.CHOICE C EXCEPTION.CHOICE I* => 

SEQUENCE_3F_$T ATEMENTS 
function EXCEPTION_HANDLER return boolean is 
begin 

if ( BYPASS( TOKEN_WHEN ) ) then 
if ( EXCEPTION_CHOICE ) then 

while ( BYPASS( TOKEN_BAR ) ) loop 
if not ( EXCEPTION_CHOICE ) then 

SYNTAX_ERROR( "Exception handler")* 
end if* — if not exception_choice 

end loop* 

if ( BYPASS! TOKEN_ARROH) ) then 

if <SEQUENCE_OF_STATEMENTS) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Exception handler" )* 
end if* — if sequence_of_sta tements 

else 

SYNTAX_ERROR( "Exception handler" ) * 
end if* — if bypass ( token_ar row ) 

else 

SYNT AX_E RROR ( "Exception handler" ) * 

end if* — if exception_choice statement 

else 

return (FALSE)* 

end if* — if bypass ( token-when ) 

end EXCEPTION_HANDLER * 



— ACCEPT_ST ATEMENT — > identifier [(EXPRESSION) ?] [ FORMAL_PART ?] 

[do SEQUENCE_OF_ST ATEMENTS end [identifier ?] ?] * 
function ACCEPT_ST ATEMENT return boolean is 
begin 

if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
if ( BYPASS! TOKEN_LEFT_PAREN ) ) then 
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if (EXPRESSION) then 

if ( BYPASS! TOKEN.RIGHT.PAREN ) ) then 
null * 
else 

SYNTAX.ERROR! ’’Accept statement" ) * 
end if* — if bypass! token.right.paren ) 

else 

SYNTAX_ERROR< "Accept statement" ) * 
end if* -- if expression statement 

end if* -- if bypass! token_lef t_paren ) 

if ( FORMA L.PART ) then 
null * 

end if* — if formal_part statement 

if ( BYPASS! TOKEN.OO ) ) then 

if ! SEQUENCE.OF.STATEMENTS ) then 
if f BYPASS! TOKEN.ENDU then 

if ( BYPASS! TOKEN. IDENTIFIER ) ) then 
null * 

end if* — if bypass! token.identif ier ) 

else 

SYNTAX.ERROR! "Accept statement" ) * 
end if* — if bypass! token_end ) 

else 

SYNTAX.ERROR! "Accept statement" ) * 
end if* — if sequence.of .statements 

end if* — if bypass! token_do ) 

if ( BYPASS! TOKEN.SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX.ERROR! " Accept sta tement" ) * 
end if* — if bypass! token.semicolon j 

else 

return (FALSE)* 

end if* — if bypass! token.identi f ier ) 

end ACCEPT. STATEMENT * 



— SELECT.ST ATEMENT — > SELECT.ST ATEMENT.TAIL SELECT.ENTRY.CALL end select * 
function SELECT.ST ATEMENT return boolean is 
begin 

if (SELECT.STATEMENT.TAIL) then 
if ( SELECT.ENTRY.CALL ) then 
if < BYPASS! TOKEN.END)) then 

if ( BYPASS! TOKEN.SELECT ) ) then 

if ( BYPASS! TOKEN.SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX.ERROR! "Select statement" ) * 
end if* — if bypass! token. semi colon ) 

else 

SYNTAX.ERROR! "Select statement" )* 
end if* — if bypass! token.select ) 

else 

SYNTAX.ERROR! "Select statement" ) * 
end if* — if bypass! token.end ) 

else 

SYNTAX.ERROR! "Select statement" )* 

end if* — if select.entry.call statement 

else 

return (FALSE)* 

end if* — if select.statement.tail 

end SELECT.ST ATEMENT * 



— SELECT.ST ATEMENT.T AI L — > SELECT. ALTERNATIVE [or SELECT.ALTERNATIVE ]* 

— > NAME * [ SEQUENCE.OF.STATEMENTS ?] 
function SELECT.ST ATEMENT.T AI L return boolean is 
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begin 

if (SEIECT_ALTERNATIVE ) then 

while ( BYPASS! TOKEN_OR ) ) loop 

if not (SELECT.ALTERNATIVE ) then 

SYNTAX_ERROR( "Select statement tail")* 
end if* 
end loop* 
return (TRUE)* 

elsif (NAME) then — check for entry call statement 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
if ( SEQUENCE_OF_STATEMENTS ) then 
null* 

end if* — if sequence_of_statements 

return (TRUE)* 
else 

SYNTAX_ERROR( "Select statement tail")* 
end if* — if bypass( token_semicolon ) 

else 

return (FALSE)* 

end if* — if select_alterna t ive statement 

end SELECT_STATEMENT_TAIL * 



— SELECT_ALTERNATIVE — > [when EXPRESSION => ?] accept ACCEPT_ST ATEMENT 

[ SEQUENCE_OF_STATEMENTS ?1 
— > [when EXPRESSION => ?] delay DELAY_STATEMENT 
[ SEQUENCE_OF_STATEMENTS ?] 

— > [when EXPRESSION => ?] terminate * 
function SELECT_ALTERNATIVE return boolean is 
begin 

if <BYPASS(TOKEN_NHEN) ) then 
if (EXPRESSION) then 

if ( BYPASS( TOKEN_ARROW ) ) then 
null * 
else 

SYNTAX_ERROR( "Select alternative")* 
end if* -- if bypasst token_arrow ) 

else 

SYNTAX_ERROR( "Select alternative" ) * 
end if* — if expression statement 

end if* — if bypass ( token_when ) 

if ( BYPASSt TOKEN_ACCEPT ) ) then 
if ( ACCEPT_ST ATEMENT ) then 

if (SEQUENCE_OF_STATEMENTS) then 
null * 

end if* — if sequence_of_statements 

return (TRUE)* 
else 

SYNTAX_ERROR( "Select alternative" ) * 
end if* — if accept_statement 

elsif ( BYPASS! TOKEN_DELAY ) ) then 
if (DELAY_ST ATEMENT) then 

if ( SEQUENCE_OF_STATEMENTS ) then 
null * 

end if* -- if sequence_of_statements 

return (TRUE)* 
else 

SYNTAX_ERROR( "Select alternative" ) * 
end if* — if delay_statement 

elsif ( BYPASS! TOKEN_TERMINATE ) ) then 
if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Select alternat ive" ) * 
end if* — if bypass ( token_semicolon ) 

else 

return (FALSE)* 

end if* — if bypass ( token_accept ) 
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end SELECT_ALTERNATIVE * 



— SELECT_ENTRY_CALL — > else SEQUENCE_OF_ST ATEMENTS 

— > or delay DELAY_STATEMENT [ SEQUENCE_OF_ST ATEMENTS ?] 
function SELECT_ENTRY_CALL return boolean is 
begin 

if ( BYPASS! TOKEN_ELSE)) then 

if ( SEQUENCE_OF_STATEMENTS ) then 
return ( TRUE ) * 
else 

SYNTAX^ ERROR! "Select entry call" )* 
end if* — if sequence_of_s ta tements 

els if ( BYPASS! TOKEN_OR ) ) then 
if ( BYPASS! TOKEN_DELAY ) ) then 
if ( DELAY_STATEMENT ) then 

if ( SEQUENCE_OF_STATEMENTS ) then 
null * 

end if* — if sequence_of_sta tements 

return (TRUE)* 
else 

SYNTAX_ERROR( "Select entry call")* 
end if* — if delay_s ta tement 

else 

SYNTAX_ERROR( "Select entry call")* 
end if* — if bypass! token_delay ) 

else 

return (FALSE)* 

end if* — if bypass! token_else 1 

end SELECT_ENTRY_CALL* 

end PARSE R_1 * 
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APPENDIX E 

'ADAMEASURE' PROGRAM LISTING - PART 3 



--*************************************************************** — 



— TITLE: 

— MODULE NAME : 

— DATE CREATED: 

— LAST MODIFIED: 

— AUTHORS: 



AN ADA SOFTWARE METRIC 

PACKAGE ?ARSSR_2 
18 JUL 36 
04 DEC 36 

LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, ~R. 



— DESCRIPTION: This package contains thirty- three functions 

that are the middle level productions for cur top-down, -- 
recursive descent parser. Each function is preceded 

— by the grammaar productions they are implementing. 

*^*******^****3H*********-*HH*********-#***-**-#-********-# ■#•**■*■#■#*■*■#* - - 



with PARSER.3, PARScR_4, SYPASS_ c UNCTICN , 8YPASS_SUPP0RT_FUNCTI0NS , 
GL08AL.PARSER, GLOBAL*, 

use PARSER.3, PARScR.J, 3YPASS_FUNCTI0N , BYPASS_3UPP0RT^FUNC7I0NS , 
GL0BAL_PARSER, GLOBAL*, 

package PARSER_2 is 

function GENERIC_AC7UAL_PART return boolean * 
function GENERIC_ASS0CIATI0N return boolean*, 
function GENERIC_FORMAL_PARAMETER return boolean* 
function GENERIC_TYPE_DEFINITION return boolean* 
function PRIVATE_TYPE_DECLARATION return boolean* 
function TYPE_DECLARATION return boolean* 
function SUBTYPE_DECLARATION return boolean* 
function DISCRIMINANT_PART return boolean* 
function DISCRIMINANT.SPECIFICATION return boolean* 
function TYPE_DEFINITION return boolean* 
function RECORD_TYPE_DEFINITION return boolean* 
function C0MP0NENT_LIST return boolean* 
function COMPONENT_DECLARATION return boolean* 
function VARIANT_PART return boolean* 
function VARIANT return boolean* 
function WITH_OR_USE_CLAUSE return boolean* 
function FORMAL_PART return boolean* 
function IDENTIFIER_DECLARATION return boolean* 
function IDENTIFIER_DECLARATION_TAIL return boolean* 
function EXCEPTION_TAIL return boolean* 
function EXCEPTION_CHOICE return boolean* 
function CONSTANT_TERM return boolean* 
function IDENTIFIER_TAIL return boolean* 
function PARAMETER_SPECIFICATION return boolean* 
function IDENTIFIER_LIST return boolean* 
function MODE return boolean* 
function DESIGNATOR return boolean* 
function SIMPLE_STATEMENT return boolean* 
function ASSIGNMENT_OR_PROCEDURE_CALL return boolean* 
function LABEL return boolean* 
function ENTRY__DECLARATION return boolean* 
function REPRESENT ATION_CLAUSE return boolean* 
function RECORD_REPRESENTATION_CLAUSE return boolean* 
end PARSER.2* 
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package body PARSER_2 is 



— GENE RIC_ACTUAL_P ART — > ( GENERIC_ASSOCIATION [, GENERIC_ASSOCIATION ]* ) 

function GENERIC_ACTUAL_PART return boolean is 
begin 

if ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if ( GENERIC_ASSOCIATION ) then 

while ( BYPASS ( TOKEN_COMMA ) ) loop 

if not (GENERIC.ASSOCIATION) then 

SYNTAX_ERROR( "Generic actual part"); 
end if; — if not generic_associat ion 

end loop ; 

if ( BYPASS! TCKEN_RIGHT_PAREN ) I then 
return (TRUE); 
else 

SYNTAX_ERROR( "Generic actual part"); 
end if; — if bypass; token_right_paren ) 

else 

SYNTAX_ERROR( "Generic actual part"); 
end if; — if generic association statement 

else 

return( FALSE ) ; 

end if; — if bypass( token_lef t_paren ) 

end GENERIC_ACTUAL_PART ; 



— GENERIC_ASSOCIATION — > [ GENE RIC_ FORMA L_ q ARAMETER ?3 EXPRESSION 

function GENERIC_ASSOCIATION return boolean is 
begin 

if ( GENERIC_FORMAL_PARAMETER ) then 
null ; 

end if; — if generic_formal_parameter statement 

if (EXPRESSION) then — check for gener ic_3ctual_parameter 

return (TRUE); 
else 

return (FALSE); 

end if; — if expression 

end GENERIC_ASSOCIATION ; 



— GENERIC_FORMAL_PARAMETER — > identifier => 

— > string_li teral => 

function GENERIC_FORMAL_PARAMETER return boolean is 
begin 

LOOK_AHEAD_TOKEN := TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX +1); 
if ( ADJUST_LEXEME( LOOK_AHEAD_TOKEN. LEXEME , 

LOOK_AHEAD_TOKEN. LEXEME_SIZE - 1) = "=>" ) then 
if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
if ( BYPASS ( TOKEN_ARROW ) ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Generic formal parameter" ) ; 
end if; — if bypass ( token_ar row ) 

elsif ( BYPASS( TOKEN_STRING_LITERAL ) ) then 
if ( BYPASS( TOKEN_ARROW ) ) then 
return (TRUE); 
else 

SYNTAX_ERROR( "Generic formal parameter" ) ; 
end if; — if bypass ( token_arrow ) 

else 

SYNTAX_ERROR( "Generic formal parameter"); 
end if; — if bypass( token_identif ier ) 

else 

return (FALSE); 

end if; — if adjust_lexeme( lookahead_ token ) 

end GENERIC_FORMAL_PARAMETER; 
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— GENERIC_TYPE_DEFINITION — > ( <> ) 



— > range <> 

— — > digits <> 

— > delta <> 

— > array ARRAY_TYPE_DEFINITION 
— > access SUBTYPE_INDICATION 
function GENERIC_TYPE_DEFINITION return boolean is 
begin 

if ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if ( BYPASS( TOKEN_BRACKETS ) ) then 

if ( BYPASS< TOKEN_RIGHT_PAREN ) ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Generic type def ini t ion" ) * 
end if* -- if bypass( token_right_paren ) 

else 

SYNTAX_ERROR( "Generic type definition")* 
end if* — if bypass( token_brackets ) 

els if ( BYPASS( TOKEN_RANGE ) ) or else ( BYPASS( TOKEN_DIGITS ) ) 
or else ( BYPASS ( TOKEN_DELTA ) ) then 
if ( BYPASS( TOKEN_BRACKETS ) ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Generic type definition")* 
end if* — if bypass ( token_brackets ) 

els if <BYPASS(TOKEN_ARRAY) ) then 
if ( ARRAY_TYPE_DEFINITICN ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Generic type definition")* 
end if* — if array_type_def ini t ion 

els if ( BYPASS( TOKEN_ACCESS ) ) then 
if ( SUBTYPE_INDICATION ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Generic type definition")* 
end if* -- if subtype_indication 

else 

return (FALSE)* 

end if* — if bypass ( token_lef t_pa ren ) 

end GENERIC_TYPE_DEFINITION * 



— PRIVATE_TYPE_DECLARATION — > [limited ?] private 
function PRIVATE_TYPE_DECLARATION return boolean is 
begin 

if ( BYPASS( TOKEN_LIMITED ) ) then 
null * 
end i f * 

if ( BYPASS( TOKEN_PRIVATE ) ) then 
return (TRUE)* 
else 

return (FALSE)* 
end if* 

end PRIVATE_TYPE_DECLARATION * 



— SUBTYPE_DECLARATION — > identifier is SUBTYPE.INOICATION * 
function SUBTYPE_DECLARATION return boolean is 
begin 

if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
if ( BYPASS( TOKEN_IS ) ) then 

if (SUBTYPE_INDICATION) then 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
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return (TRUE)* 
else 

SYNTAX_ERROR( "Subtype declaration" ) * 
end if* — if bypass ( token_semicolon ) 

else 

SYNTAX_ERROR< "Subtype declaration" ) * 
end if* -- if sub type_ indication statement 

else 

SYNTAX_ERROR( "Subtype declaration" ) * 
end if* — if bypass ( token_ is ) 

else 

return (FALSE)* 

end if* — if bypass( toKen_ identifier ) 

end SUBTYPE_DECLARATION * 



— TYPE_DECLARATION — > identifier l DISCRIMINANT_PART ?] 

is SUBTYPE_INDICATION* 
function TYPE_DECLARATION return boolean is 
begin 

if ( BYPASS( TOKEN_IDENTIFIER ) ) then 
if ( DISCRIMINANT_PART ) then 
null * 

end if* -- if discriminant_part statement 

if ( BYPASS( TOKEN_IS ) ) then — declaration is full.type if 'is* 

if (PRIVATE_TYPE_DECLARATION) then 
null * 

elsif ( TYPE_DEFINITION ) then -- presents otherwise incomplete_type 

null * 



else 



SYNTAX_ERROR( "Type declaration" ) * 
end if* — if type_def ini tion statement 

end if* — if bypass( token_is ) 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Type declaration" ) * 
end if* -- if bypass( token_semicolon ) 

else 

return (FALSE)* 

end if* — if bypass( token_ident if ier ) 

end TYPE_DECLARATION * 



— DISCRIMINANT_PART --> ( DISCRIMINANT_SPECIFICATION 

[* DISCRIMINANT_SPECIFICATI0N1* ) 
function DISCRIMINANT_PART return boolean is 
begin 

if ( BYP ASS ( TOKEN_LEFT_P AREN ) ) then 

if (DISCRIMINANT_SPECIFICATION) then 
while ( BYPASS( TOKEN_SEMICOLON ) ) loop 

if not ( DISCRIMINANT_SPECIFICATION ) then 
SYNTAX_ERROR( "Discriminant part" ) * 
end if* — if not discriminant_specif icat ion 

end loop* 

if ( BYPASS( TOKEN_RIGHT_PAREN ) ) then 
return (TRUE)* 
else 

SYNT AX_E RROR ( "Discriminant part" ) * 
end if* -- if bypass( token_r ight_paren ) 

else 

SYNT AX_ERROR( "Discriminant part")* 
end if* — if discriminant_specif icat ion 

else 

return (FALSE)* 

end if* — if bypass( token_lef t_paren ) 

end DISCRIMINANT_PART * 
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— DISCRIMINANT_SPECIFICATION — > IDENTI FIER_LIST : NAME (:= EXPRESSION ?] 
function DISCRIMINANT_SPECIFICATION return boolean is 
begin 

if ( IDENTIFIER_LIST ) then 

if ( BYPASS( TOKEN_COLON ) ) then 

if (NAME) then — check for type_mark 

if ( BYPASS! TOKEN_ASSIGNMENT ) ) then 
if (EXPRESSION) then 
null* 
else 

SYNTAX_ERROR{ "Discriminant soecif ication" ) * 
end if* --if expression statement 

end if* — if bypass { token_assignment ) 

return {TRUE)* 
else 

SYNTAX_ERROR{ "Discr iminant soecif ication" 1 * 
end if* — if name statement 

else 

SYNTAX_ERROR( "D iscr iminan t specification" ) * 
end if* -- if bypass ( token_colon ) 

else 

return { FALSE ) * 

end if* -- if ident if ier_list statement 

end DISCRIMINANT — 3PECIF ICATION * 



TYPE_ DEFINITION — > 

— > 
— > 
— > 

— > 
— > 



function TYPE_DEFINITION return boolean is 
begin 

if ( ENUMERATION_TYPE_DEFINITION ) then 
return {TRUE)* 



ENUMERATICN_TYPE_QEFINITION 
INTEGcR_ T YPE_DEr INITION 

digits FLGATING_GR_FIXED_POINT_CONSTRAINT 
delta FLOATING_CR_FIXED_POINT_CONSTRAINT 
array ARRAY_TYPE_DEFINITION 
record RECORD_rYPE_OEFINITION 
access SUBTYPE_INDICATION 
new SUBTYPE_IND ICATION 



elsif { INTEGER_TYPE_DEFINITION ) then 
return (TRUE)* 

elsif ( BYPASS! TOKEN_DIGITS ) ) or else ( BYPASS ( TOKEN_DELT A ) ) then 
if { F10ATING_0R_FIXED_P0INT_C0NSTRAINT ) then 
return (TRUE)* 



else 



SYNTAX_ERROR( "Type definition" ) * 

end if* — float ing_or_fixed_point_constraint 

elsif (BYPASS(TOKEN_ARRAY) ) then 
if ( ARRAY_TYPE_DEFINITION ) then 
return (TRUE)* 
else 



SYNT AX_E RROR ( "Type definition" ) * 
end if* --if array_type_def ini tion 

elsif { BYPASS! TOKEN_RECORD_STRUCTURE ) ) then 
if { RECORD_TYPE_DEFINITION ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Type definition" ) * 

end if* — if record_type__def in it ion 

elsif ( BYPASS! TOKEN_ACCESS ) ) or else ( BYPASS! TOKEN_NEW ) ) then 
if ( SUBTYPE_INDICATION ) then 
return (TRUE)* 
else 



SYNT AX_E RROR ( "Type def init ion" ) * 
end if* 
else 



if subtype_indication 
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return ( FALSE ) ; 
end i f ; 

end TYPE.DEFINITION; 



— RECORD.TYPE.DEFINITION — > COMPONENT_LIST end record 
function RECORD_TYPE_DEFINITION return boolean is 
begin 

if ( COMPONENT_LIST ) then 

if ( BYPASS! TOKEN.END ) ) then 

if (BYPASS( TOKEN_RECORD_STRUCTURE ) ) then 
return ( TRUE ) ; 
else 

SYNTAX.ERROR! "Record type definition"); 
end if; — if bypass! token.record-structure ) 

else 

SYNTAX.ERROR! "Record type definition"); 
end if; — if bypass! token.end ) 

else 

return (FALSE); 

end if; --if component. list statement 

end RECORD.TYPE.DEFINITION; 



— COMPONENT. LIST — > [ CQMPONENT.DECLARATION J* [ VARIANT.PART ?] 

— > null ; 

function COMPONENT.LIST return boolean is 
begin 

while ( COMPONENT_QECLARATION ) loop 
null ; 

end loop ; 

if (VARIANT.PART) then 
null ; 

elsif ( BYPASS! TOKEN.NULL ) ) then 

if ( BYPASS! TOKEN.SEMICOLON ) ) then 
null ; 
end if; 

end if; 

return (TRUE); 
end COMPONENT.LIST ; 



— COMPONENT.DECLARATION — > IDENTIFIER.LIST : SUBTYPE.INDICATION 

I := EXPRESSION ?] ; 

function COMPONENT.DECLARATION return boolean is 
begin 

if ( IDENTIFIER.LIST ) then 

if ( BYPASS! TOKEN.COLON ) ) then 
if ( SUBTYPE.INDICATION ) then 

if ( BYPASS! TOKEN.ASSIGNMENT ) ) then 
if (EXPRESSION) then 

if ( BYPASS! TOKEN.SEMICOLON ) ) then 
return (TRUE); 
else 

SYNTAX.ERROR! "Component declaration" ) ; 
end if; — if bypass! token_semicolon ) 

else 

SYNTAX.ERROR! "Component declaration" ) ; 
end if; --if expression statement 

end if; — if bypass! token.assignment ) 

if (BYPASS! TOKEN.SEMICOLON)) then 
return (TRUE); 
else 

SYNTAX.ERROR! "Component declaration" ) ; 
end if; -- if bypass! token.semicolon ) 

else 
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SYNTAX_ERROR( '‘Component declaration" ) * 
end if* — if subtype_indica tion statement 

else 

SYNT AX_E RROR! "Component declaration" ) * 
end if* — if bypass! token_colon ) 

else 

return (FALSE)* 

end if* — if identif ier_list statement 

end COMPONENT_DECLARATION * 



— VARIANT_PART — > case identifier is [VARIANT ]+ end case * 
function VARIANT_PART return boolean is 
begin 

if ( BYPASS! TOKEN_CASE) ) then 

if ( BYPASS! TOKEN_IDENTIFIER ) ) then 
if ( BYPASS! TOKEN_IS ) ) then 
if (VARIANT) then 

while (VARIANT) loop 
null * 
end loop* 

if ( BYPASS! TOKEN_END ) ) then 

if ( BYPASS! TOKEN_CASE)) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Variant part")* 
end if* — if bypass! token_semico Ion ) 

else 

SYNTAX_ERROR( "Variant part")* 
end if* — if bypass! token_case ) 

else 

SYNT AX_ERROR( "Variant part")* 
end if* — if bypass! token_end ) 

else 

SYNTAX_ERROR( "Variant part")* 
end if* — if variant statement 

else 

SYNTAX_ERROR( "Variant part")* 
end if* — if bypass! token_ is ) 

else 

SYNTAX_ERROR( "Variant part")* 

end if* — if bypass! token_ident if ier ) 

else 

return (FALSE)) 

end if* — if bypass! token_case ) 

end VARIANT_PART * 



— VARIANT --> when CHOICE [ CHOICE )* => COMPONENT_LIST 
function VARIANT return boolean is 
begin 

if ( BYPASS! TOKEN.WHEN)) then 
if (CHOICE) then 

while ( BYPASS! TOKEN_BAR ) ) loop 
if not (CHOICE) then 

SYNT AX_E RROR ( "Variant" ) * 

end if* — if not choice statement 

end loop* 

if ( BYPASS! TOKEN_ARROW ) ) then 
if (COMPONENT_LIST) then 
return (TRUE)* 
else 

SYNT AX_E RROR! "Variant" ) * 

end if* --if component_list statement 

else 

SYNT AX_E RROR! "Variant" ) * 
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if bypass( token_arrow ) 



end i f ) 
else 

SYNTAX_ERROR( "Variant" ) ) 
end if) 
else 

return ( FALSE )) 
end if) 
end VARIANT ) 



— if choice statement 



— if bypass ( token_when ) 



— WITH_OR_USE_CLAUSE — > identifier [, identifier]* ) 
function HITH_OR_USE_CLAUSE return boolean is 
begin 

if (BYPASS! TOKEN_IDENTIFIER ) ) then 
while ( BYPASS( TOKEN_COMMA ) ) loop 

if not (BYPASS! TOKEN_IDENTIFIER )) then 
SYNTAX_ERROR( "With or use clause")) 
end i f ) 
end loop) 

if ( BYPASS! TOKEN_SEMICOLON)) then 
return (TRUE)) 
else 

SYNTAX_ERROR( "With or use clause")) 
end if) — if bypass! token_semicolon ) 

else 

return (FALSE)) 

end if) — if bypass! token_ident if ier ) 

end WITH_OR_USE_CLAUSE ) 



— FORMAL_PART — > ( PARAMETER_SPECI FICATION () PARAMETER_SPECIFICATION ]* ) 

function FORMAL_PART return boolean is 
begin 

if ( BYPASS! TOKEN_LEFT_PAREN ) ) then 
if (PARAMETER.SPECIFICATION) then 

while ( BYPASS! TOKEN_SEMICOLON ) ) loop 

if not (PARAMETER_SPECIFICATION) then 
SYNTAX_ERROR( "Formal part" ) ) 

end if) — if not parameter_specif ication statement 

end loop) 

if ( BYPASS! TOKEN_RIGHT_PAREN ) ) then 
return (TRUE)) 
else 

SYNTAX_ERROR( "Formal part")) 

end if) — if bypass! token_right_paren ) statement 

else 

SYNTAX_ERROR( "Formal part")) 

end if) -- if parameter_specif ication statement 

else 

return (FALSE)) 

end if) — if bypass! toKen_lef t_paren ) statement 

end FORMAL_PART ) 



— IDENTIFIER_DECLARATION — > IDENTIFIER _LIST : IDENTIFIER_DECLARATION_TAIL 
function I DENTI FIE REDECLARATION return boolean is 
begin 

if ( IDENTIFIER_LIST ) then 

if ( BYPASS! TOKEN_COLON ) ) then 

if ( IDENTIFIER_DECLARATION_TAIL ) then 
return (TRUE)) 
else 

SYNTAX_ERROR( "Identifier declaration" ) ) 
end if) — if identifier list statement 

else 

SYNTAX.ERROR! "Identifier declaration" ) ) 
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if bypass ( toKen_co Ion ) 



end if* 
else 

return* FALSE ) * 

end if* — if identifier list statement 

end IDENTIFIER_DECLARATION * 



— IDENTIFIER_DECLARATION_TAIL — > 



exception EXCEPTION_TAIL 
constant CONST ANT.TERM 
array ARRAY_TYPE_DEFINITION 
C:= EXPRESSION ?] * 
IDENTIFIERS AIL 



tail statement 



term statement 



— > NAME 

function IDENTIFIER_OECLARATION_TAIL return boolean is 

begin 

if i BYPASS* TOKEN_EXCEPTION ) ) then 
if (EXCEPTION_TAIU then 
return * TRUE )* 
else 

SYNTAX_cRROR( "Identifier declaration tail")* 
end if* — if exception 

els if * BYPASS* TOKEN.CONST ANT ) ) then 
if ( CONST ANT_TERM) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Identifier declaration tail")* 
end if* -- if constant_ 

elsif ( BYPASS* TOKEN.ARRAY ) ) then 
if * ARRAY_TYPE_DEFINITION ) then 

if ( BYPASS* TOKENSSSIGNMENT ) ) then 
if * EXPRESSION ) then 
null * 
else 



SYNTAX_ERROR( "laent if ier declaration tail")* 
end if* — if expression statement 

end if* — if bypass* token_ass ignment ) 

else 

SYNT AX — ERROR* "Identifier declaration tail")* 
end if* — if array_type_def ini tion 

if * BYPASS* TOKEN_SEMICOLON)) then 
return *TRUE)> 
else 

SYNTAX_ERROR( "Identifier declaration tail")* 
end if* — if bypass* token_semicolon ) 

elsif * NAME ) then 

if * IDENTIFIERS AIL) then 
return *TRUE)* 
else 

SYNTAX.ERROR* "Identifier declaration tail")* 
end if* — if identif ier_tail 

else 

return * FALSE)* 

end if* — if bypass* token_excep tion ) 

end IDENTIFIER_DECLARATION_TAIL * 



— EXCEPT IONS AIL — > * 

— — > renames NAME * 

function EXCEPTIONS AIL return boolean is 
begin 

if * BYPASS* TOKEN.SEMICOLON)) then 
return * TRUE ) * 

elsif * BYPASS* TOKEN_RENAMES)) then 
if * NAME ) then 

if * BYPASS* TOKEN_SEMICOLON)) then 
return *TRUE)* 
else 

SYNTAX_ERROR* "Exception tail")* 
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if bypass ( token_semicolon ) 



end i f v 
else 

$YNTAX_ERROR( "Exception tail" )v 
end ifv 
else 



return ( FALSE ) * 
end i f v 

end EXCEPTIONS AIL * 



-- if name statement 



— if bypass! token_semicolon ) 



-- EXCEPTION_CHOICE — > identifier 
— — > others 

function EXCEPTION_CHOICE return boolean is 
begin 

if ( BYPASS! TOKEN _IDEMTI FI ER ) ) then 
return ( TRUE ) \ 

elsif ! BYPASS! TOKEN.OTHERS )) then 
return ( TRUE ) V 
else 

return ( FALSE )v 
end i f v 

end EXCEPTION^ CHOICE v 



— CONST ANT_TERM — > array ARRAY _TYPE_0EFINITION i EXPRESSION ?] j 
--> := EXPRESSION 

— > NAME IDENTIFIER_TAIL 
function CONSTANT_TERM return boolean is 
begin 

if ! BYPASS! TOKEN^ARRAY ) ) then 

if I ARRAY_TYPE_QEFINITIQN ) then 

if ( BYPASS! TOKEN_ ASSIGNMENT ) ) then 
if (EXPRESSION) then 
null v 
else 



SYNTAX_ERROR( "Constant term" ) v 
end ifv — if expression statement 

end ifv — if bypass! token_assignment ) 

else 

SYNTAX_ERROR( "Constant term" ) v 

end ifv -- if array_type_def init ion 

if ( BYPA$S( TOKEN_SEMICOLON ) ) then 
return ( TRUE ) v 
else 



SYNT AX_E RROR ( "Constant term" ) v 

end ifv — if bypass! token_semicolon ) 

elsif ( BYPASS! TOKEN_ASSIGNMENT ) ) then 
if (EXPRESSION) then 

if ! BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)v 



else 



SYNTAX_ERROR( "Constant term" ) v 
end ifv 
else 



if bypass( token_semicolon ) 



SYNTAX_ERROR( "Constant term" ) V 

end ifv -- if expression statement 

elsif (NAME) then 

if ( IDENTIFIER_TAIL ) then 
return (TRUE)v 
else 



SYNTAX_ERROR( "Constant term" ) v 

end ifv — if identif ier_tail statement 

else 



return ( FALSE ) v 
end ifv 

end CONSTANT_TERM v 



-- if bypass! token_ar ray ) 
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— IDENTIFIER_TAIL — > [CONSTRAINT ?] C:= EXPRESSION ?] * 

— — > [renames NAME ?] * 
function IDENTIFIER_TAIL return boolean is 
begin 

if (CONSTRAINT) then 
null * 

end if* — if constraint statement 

if ( BYPASS ( TOKEN_RENAMES ) ) then 
if (NAME) then 
null * 
else 

SYNT AX_E RROR ( "Identifier tail" )* 
end if* — if name statement 

end if* — if bypass! token_renames ) 

if ( BYPASS( TOKEN_ASSIGNMENT ) ) then 
if (EXPRESSION) then 
null * 
else 

SYNT AX_E RROR! "Identifier tail" ) * 
end if* -- if expression statement 

end if* — if bypass ( token_assignment ) 

if ( BYPASS( TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

return (FALSE)* 

end if* — if bypass! token_semicolon ) 

end IDENTIFIERS AIL * 



— PARAMETER_SPECIFICATION — > IDENTIFIER.LIST : MODE NAME I : = EXPRESSION ?] 
function PARAMETER_SPECIFICATION return boolean is 
begin 

if (IDENTIFIER_LIST) then 

if ( BYPASS* TOKEN_COLON ) ) then 
if (MODE) then 

if (NAME) then — check for type_mark 

if ( BYPASS( TOKEN_ASSIGNMENT ) ) then 
if (EXPRESSION) then 
null * 
else 

SYNTAX_ERROR( "Parameter specification" ) * 
end if* — if expression statement 

end if* — if bypass ( token_assignment ) 

return (TRUE)* 
else 

SYNTAX_ERROR< "Parameter specification" ) * 
end if* — if name statement 

else 

SYNT AX_E RROR ( "Pa rame te r spec i f ica t ion" ) * 
end if* — if mode statement 

else 

SYNTAX_ERROR( "Parameter specification" ) * 
end if* — if bypass( token_colon ) 

else 

return (FALSE)* 

end if* — if ident if ier_lis t statement 

end PARAMETER_SPECIFICATION * 



— IDENTIFIER_LIST — > identifier I > identifier ]* 
function IDENTIFIER_LIST return boolean is 
begin 

if ( BYPASS* TOKEN_IDENTIFIER ) ) then 
while ( BYPASS* TOKEN_COMMA ) ) loop 

if not ( BYPASS* TOKEN_IDENTIFIER ) ) then 
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$YNTAX_ERROR( "Identif ier list" ) * 

end if* — if not bypass! token_ identif er ) statement 

end loop* 
return (TRUE)* 
else 

return ( FALSE ) * 

end if* — if bypass! token_identif ier ) statement 

end IDENTIFIER_LIST* 



— MODE — > tin ?1 
— — > in out 

— > out 

function MODE return boolean is 
begin 

if ( BYPASS! TOKEN_IN ) ) then 

if ( BYPASS! TOKEN_OUTn then 
null * 
end i f * 

els if ( BYPASS (TOKEN_OUT)) then 
null * 
end if* 

return (TRUE)* 
end MODE * 



— DESIGNATOR — > identifier 

— > string_li teral 
function DESIGNATOR return boolean is 
begin 

if ( BYPASS! TOKEN__IDENTIFIER)) then 
return (TRUE)* 

elsif ( BYPASS! TOKEN__STRING_LITERAL ) ) then 
return (TRUE)* 
else 

return (FALSE)* 
end if* 

end DESIGNATOR* 



— SIMPLE STATEMENT 



— > null * 

— > ASSIGNMENT_OR_PROCEDURE_CALL 
— > exit EXIT_STATEMENT 
— > return RETURN.STATEMENT 
— > goto GOTO_STATEMENT 
— > delay DELAY_STATEMENT 
— > abort ABORT_ST ATEMENT 
— > raise RAISE_ST ATEMENT 



function SIMPLE_STATEMENT return boolean is 
begin 

if ( BYPASS! TOKEN_NULL ) ) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Simple statement" ) * 
end if* 

elsif ( ASSIGNMENT_OR_PROCEDURE_CALL ) then — includes a check for a 
return (TRUE)* — code statement and an 



elsif ( BYPASS! TOKEN_EXIT ) ) then 
if ( EXIT_STATEMENT ) then 
return (TRUE)* 
else 

SYNT AX_E RROR ( "Simple statement")* 
end if* 

elsif ( BYPASS! TOKEN_RETURN ) ) then 



entry call statement. 
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if ( RETURN_STATEMENT ) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Simple statement" ) * 
end if* 

els if ( BYPASS* TOKEN_GOTO ) ) then 
if ( GOTO_STATEMENT ) then 
return (TRUE)* 
else 

S YNT AX_E RROR ( "Simple statement" ) * 
end i f * 

els if ( BYPASS! TOKEN_DELAY ) ) then 
if (OELAY_STATEMENT) then 
return ( TRUE ) * 
else 

SYNTAX_SRROR< "Simple statement" 1* 
end i f ; 

elsif < BYPASS( TOKEN_^BQRT ) I then 
if ( ABORT.STATEMENT ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Simple statement" ) * 
end if* 

elsif ( BYPASS* TOKEN_RAISE ) ) then 
if ( RAXSE.STATEMENT ) then 
return ( TRUE ) * 
else 

SYNTAX_ERROR( "Simple statement" ) * 
end i f * 
else 

return (FALSE)* 
end i f ; 

end SIMPLE_STATEMENT * 



— ASSIGNMENT_OR_PROCEOURE_CALL — > NAME := EXPRESSION * 

— > NAME * 

function ASSIGNMENT_OR_PROCEDURE_CALL return boolean is 
begin 

if (NAME) then 

if ( BYPASS! TOKEN_ASSIGNMENT)) then 
if (EXPRESSION) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 

return (TRUE)* — parsed an assignment statement 

else 

SYNTAX_E RROR ( "Assignment or procedure call")* 
end if* — if bypass( token_semi colon ) 

else 

SYNTAX_ERROR( "Assignment or procedure call")* 
end if* — if expression statement 

elsif ( BYPASS( TOKEN_SEMICOLON ) ) then 

return (TRUE)* — parsed a procedure call statement 

else 

SYNTAX_ERROR( "Assignment or procedure call")* 
end if* — if bypass ( toKen_assignment ) 

else 

return (FALSE)* 

end if* — if name statement 

end ASSIGNMENT_OR_PROCEDURE_CALL * 



— LABEL — > << identifier >> 

function LABEL return boolean is 
begin 

if (BYPASS(TOKEN_LEFT_BRACKET)) then 
if ( BYPASS( TOKEN_IDENTIFIER ) ) then 

if ( BYPASS! TOKEN_RIGHT_BRACKET)) then 
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return (TRUE)* 
else 

SYNT AX_E RROR ( "Label" )* 

end if* — if bypass( toKen_r ight_bracket ) 

else 

SYNTAX_ERROR( "Label" ) * 

end if* — if bypasss( toKen_ identifier ) 

else 

return ( FALSE ) * 

end if* — if bypass! token_left_b racket ) 

end LABEL* 



— ENTRY_QECLARATION — > entry identifier C ( DISCRETE.RANGE ) ?J 

{ FORMAL_PART ?I * 

function ENTRY_OECLARATION return boolean is 
oegm 

if ( BYPASS! TOKEN.ENTRY ) ) then 

if ( BYPASS! TOKEN_IDENTIrIER ) ) then 
if ( BYPASS! TOKEN_lEFT_PAREN ) I then 
if ( DISCRETE_RANGE ) then 

if ( BYPASS! TOKEN_RIGHT_PAREN ) ) then 
null* 
else 

SYNTAXES RROR! "Entry declaration" ) * 
end if* — if bypass! token_right_?aren ) 

else 

SYNTAXES RROR ("Entry decla ration")* 
end if* — if discrete^range statement 

and if* — if bypass* token_ief t_paren ) 

if ( FORMAL_?ART ) then 
null * 

end if* — if formal __part statement 

if ( BYPASS! T0KEN_5EMIC0L0N ) ) then 
return l TRUE)* 
else 

SYNT AX_E RROR ( "Entry declaration" ) * 
end if* — if bypass! token_semicolon ) 

else 

SYNTAXES RROR! "Entry declaration" ) * 
end if* — if bypass! token_ident if ier ) 

else 

return (FALSE)* 

end if* — if bypass! token_en try ) 

end ENTRY_DECLARATION * 



— RE PRESENT ATION.CLAUSE — > for NAME use record RECORD_REPRESENTATION_CLAUSE 

— > for NAME use [at ?] SIMPLE_EXPRESSION * 
function REPRESENT ATION_CLAUSE return boolean is 
begin 

if ( BYPASS! TOKEN_FOR ) ) then 
if (NAME) then 

if ( BYPASS! TOKENJJSE ) ) then 

if ( BYPASS! TOKEN_RECORD_STRUCTURE ) ) then 
if (RECORD_REPRESENTATION_CLAUSE ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Representation clause" ) * 
end if* — if record_representation_clause 

elsif ( BYPASS! TOKEN_AT ) ) then 
if (SIMPLE.EXPRESSION) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Representa t ion clause" ) * 
end if* — if bypass! token_semicolon ) 
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else 

SYNTAX_ERROR( "Representation clause" ) * 
end if* — if simple_expression statement 

elsif (SIMPLE.EXPRESSION) then 

if ( BYPASS ( TOKEN.SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Representation clause" ) * 
end if* -- if bypass ( toKen_semicolon ) 

else 

SYNTAX_ERROR( "Representation clause" )* 
end if* — if bypass ( token_record) 

else 

SYNT AX_E RROR ( "Representation clause" ) * 
end if* -- if bypass ( token.use ) 

else 

SYNTAX_ERROR( "Representation clause" ) * 
end if* — if name statement 

else 

return (FALSE)* 

end if* — if bypass ( token. f or ) 

end REPRESENT ATION.CLAUSE * 



— RECORD.REPRESENTATION.CLAUSE — > (at mod SIMPLE.EXPRESSION ?] 

(NAME at SIMPLE_EXPRESSION range RANGES 

— end record * 
function RECORD_REPRESENTATION_CLAUSE return boolean is 
begin 

if ( BYPASS( TOKEN.AT ) ) then 

if ( BYPASS( TOKEN_MOD ) ) then 
if (SIMPIE.EXPRESSION) then 
null * 
else 

SYNT AX_ERROR( "Record representation clause")* 
end if* — if s imple_expression 

else 

SYNTAX_ERROR( "Record representation clause")* 
end if* — if bypass ( token_mod ) 

end if* — if bypass ( token.at ) 

while (NAME) loop 

if (BYPASS (TOKEN. AT)) then 

if (SIMPLE.EXPRESSION) then 

if ( BYPASS ( TOKEN.RANGE ) ) then 
if (RANGES) then 
null * 
else 

SYNTAX.E RROR ( "Record representation clause")* 
end if* — if ranges statement 

else 

SYNTAX.E RROR ( "Record representat ion clause")* 
end if* — if bypass ( token.range ) 

else 

SYNT AX_ERROR( "Record representat ion clause")* 
end if* — if s imple.express ion 

else 

SYNTAX.E RROR ( "Record representation clause")* 
end if* — if bypass ( token.at ) 

end loop* 

if ( BYPASS( TOKEN.END ) ) then 

if ( BYPASS ( TOKEN_RECORD_STRUCTURE ) ) then 
if ( BYPASS( TOKEN.SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Record representation clause")* 
end if* — if bypass ( token.semicolon ) 

else 

SYNTAX.E RROR ( "Record representat ion clause")* 
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if bypass ( token_record_structure ) 



end if) 
else 

return (FALSE)) 

end if) — if bypass ( token_end ) 

end RECORD_REPRESENTATION_CLAUSE ) 

end PARSERS) 
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— *************************************************************** — 



TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME : 

— DATE CREATED: 

— LAST MODIFIED: 

— AUTHORS: 



PACKAGE PARSER.3 
22 JUL 86 
03 DEC 86 

LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains thirty-five functions 

— that make up the baseline productions for our top-down, — 
recursive descent parser. Each function Is preceded 

— by the grammar productions they are implementing. 

—*********************************************************-****** — 



with PARSER^, 3YPASS_FUNCTI0N , HALSTEAD_METRIC * GLOBAL_?ARSER » GLOBAL * 
use PARSERS, BYPASS.FUNCTION > HALSTEAD ^METRIC , GLQBAL_?ARSER , GLOBAL * 

package PARSER_3 is 

function SUBTYPE_INDICATION return boolean* 

function ARRAY_TYPE_OEFINITION return boolean * 

function CHOICE return boolean * 

function ITERATION_SCHEME return boolean * 

function LOOP_PARAMETER_SPECIr ICATION return boolean * 

function EXPRESSION return boolean * 

function RELATION return boolean * 

function RELATION _TAIL return boolean* 

function SIMPLE_EXPRES3I0N return boolean* 

function SIMPLE_cXPRESSION_TAIL return boolean* 

function TERM return boolean* 

function FACTOR return boolean* 

function PRIMARY return boolean* 

function CONSTRAINT return boolean* 

function FLOATING_OR_FIXED_POINT_CONSTRAINT return boolean* 
function INDEX_CONSTRAINT return boolean* 
function RANGES return boolean* 
function AGGREGATE return boolean* 
function C0MP0NENT_ASS0CIATI0N return boolean* 
function ALLOCATOR return boolean* 
function NAME return boolean* 
function NAME_TAIL return boolean* 
function LEFT_PAREN_NAME_TAIL return boolean* 
function ATTRIBUTE_DESIGNATOR return boolean* 
function INTEGER__TYPE_DEFINITION return boolean* 
function DISCRETE_RANGE return boolean* 
function EXIT_STATEMENT return boolean* 
function RETURN_STATEMENT return boolean* 
function G0T0_STATEMENT return boolean* 
function DELAY_ STATEMENT return boolean* 
function ABORT_STATEMENT return boolean* 
function RAISE_STATEMENT return boolean* 
end PARSER_3* 



package body PARSE R_3 is 

— SUBTYPEJENDICATION — > NAME [CONSTRAINT ?] 
function SUBTYPE.INDICATION return boolean is 
begin 

if (NAME) then — check for type_mark 

if (CONSTRAINT) then 
null* 
end if* 

return (TRUE)* 
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else 

return ( FALSE ) * 
end if* 

end SUBTYPE_INDICATION* 



— ARRAY_TYPE_DEFINITION — > ( INDEX_CONSTRAINT of SUBTYPE_INDICATION 

— this function parses both constrained and unconstrained arrays 
function ARRAY_TYPE_DEFINITION return boolean is 

begin 

if ( BYPASS! TOKEN_LEFT_PAREN ) ) then 
if ( INDEX_CGNSTRAINT ) then 
if (BYPASS(TOKEN_OFU then 

if (SUBTYPE.INDICATTON) then 
return ( TRUE ) * 
else 

3YNTAX_ERR0R( "Array definition" 1 * 
and if* — if sub type_ indication 

alse 

SYNTAX_ERROR( "Array definition" ) * 
end if* — if bypass ( token_of ) 

else 

SYNTAX_ERROR( "Array definition" )* 

end if* — if index_constra int statement 

else 

return (FALSE)* 

end if* — if oypassi toKen_la+ t_paren ) 

end ARRAY_TYPE_DEFINITION * 



— CHOICE — > EXPRESSION C . .SIMPLE_EXPRESSION ?] 

— > EXPRESSION [CONSTRAINT ?] 

— — > others 
function CHOICE return boolean is 
begin 

if (EXPRESSION) then 

if ( BYPASS(TOKEN_RANGE_DOTS ) ) then — check for discrete_range 
if ( SIMPLE_EXPRESSION ) then 
null* 
else 

SYNT AX_E RROR ( "Choice" ) * 

end if* — if simple_expression statement 

elsif (CONSTRAINT) then 
null * 

end if* — if bypass token_range_dots 

return (TRUE)* 

elsif ( BYPASSt TOKEN_OTHERS ) ) then 
return (TRUE)* 
else 

return (FALSE)* 
end i f * 
end CHOICE* 



— ITERATION_SCHEME — > while EXPRESSION 

— > for LOOP_PARAMETER_SPECIFICATION 
function ITERATION_SCHEME return boolean is 
begin 

if ( BYPASS( TOKEN_WHILE ) ) then 

NESTING.METRIC ( HHI LE_CONSTRUCT ) * 
if (EXPRESSION) then 
return (TRUE)* 
else 

SYNT AX_E R ROR ( "Iteration scheme" ) * 
end if* 

elsif ( BYPASS( TOKEN_FOR ) ) then 
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NESTING_METRIC( FOR.CONSTRUCT ) * 
if (LOOP_PARAMETER_SPECIFICATION) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Iteration scheme" ) * 
end i f * 
else 

return ( FALSE ) * 
end i f * 

end ITERATION_SCHEME * 



— LOOP_PARAMETER_SPECIFICATION — > identifier in [reverse ?] DISCRETE_RANGE 
function LOOP_PARAMETER_SPECIFICATICN return boolean is 
begin 

if (BYPASS(TOKEN_IDENTIFIER) ) then 
if ( BYPASS( TOKEN_IN ) ) then 

if ( BYPASS( TOKEN_REVERSE ) ) then 
null * 

end if* -- if bypass ( token_ reverse ) 

if ( DISCRETE_RANGE ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Loop parameter specification")* 
end if* — if discrete_range statement 

else 

SYNTAX_ERROR( "Loop parameter specification")* 
end if* — if bypass ( toKen_ in ) 

else 

return (FALSE)* 

end if* — if bypass ( token_ identifier ) 

end LOOP_PARAMETER_SPECIFICATION * 



— EXPRESSION — > RELATION I RELATION_TAIL ?] 
function EXPRESSION return boolean is 
begin 

if (RELATION) then 

if ( RELATION_TAIL ) then 
null* 

end if* — if relation_tail statement 

return (TRUE)* 
else 

return (FALSE)* 

end if* — if relation statement 

end EXPRESSION* 



— RELATION --> SIMPLE_EXPRESSION [ SIMPLE_EXPRESSION_TAIL ?1 
function RELATION return boolean is 
begin 

if ( SIMPLE_EXPRESSION ) then 

if (SIMPLE_EXPRESSION_TAIL) then 
null * 

end if* — if simple_expression_tail statement 

return (TRUE)* 
else 

return (FALSE)* 

end if* — if simple_expression statement 

end RELATION* 



- RELATION_TAIL — > 



[and [then ?] RELATION 1* 
[or [else ?] RELATION 1* 
[xor RELATION]* 



147 



function RELATION_TAIL return boolean is 
begin 

while ( BYPASS( TOKEN_AND ) ) loop 
if ( BYPASS( TOKEN_THEN ) ) then 
null* 
end i f * 

if not (RELATION) then 

SYNTAX_ERROR( "Relation tail")* 
end i f * 
end loop * 

while ( BYPASS( TOKEN_OR ) ) loop 
if ( BYPASS! TOKEN_ELSE ) ) then 
null * 
end i f * 

if not (RELATION) then 

SYNTAX_ERROR( "Relation tail" )* 
end i f * 
end loop * 

while ( BYPASS ( TOKEN_XOR 1 ) loop 
if not (RELATION) then 

SYNTAX_ERROR( "Relation tail" )* 
end i f * 
end loop* 
return (TRUE)* 
end RELATION_TAIL * 



if bypass ( token_then ) 
if not relation statement 

if bypass ( token_else ) 
if not relation statement 

if not relation statement 



— SIMPLE_EXPRESSION --> [ + ?] TERM [ BINARY_ADDING_0PERAT0R TERM ]* 

-->[-?] TERM [BINARY ADDING_OPERATOR TERM J* 
function SIMPLE_HXPRESSION return boolean is 
begin 

if ( BYPASS! TOKEN_?LUS) or BYPASS! TOKEN_MINUS ) ) then 
if (TERM) then 

while (BINARY_ADDING_OPERATOR) loop 
if not (TERM) then 

SYNTAX_ERROR( "Simple expression" ) * 
end if* — if not term statement 

end loop* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Simple expression" ) * 
end if* — if term statement 

elsif (TERM) then 

while ( BINARY_ADDING_OPERATOR ) loop 
if not (TERM) then 

SYNTAX_ERROR( "Simple expression" )* 
end if* — if not term statement 

end loop * 
return (TRUE)* 
else 

return (FALSE)* 

end if* — if bypass ( toKen_plus ) et al statement 

end SIMPLE_EXPRESSION * 



— SIMPLE_EXPRESSION_TAI L — > RELATIONAL_OPERATOR SIMPLE_EXPRESSION 

— > [not ?1 in RANGES 
— > [not ?1 in NAME 
function SIMPLE_EXPRESSION_TAIL return boolean is 
begin 

if (RELATIONAL_OPERATOR) then 
if ( SIMPLE_EXPRESSION ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Simple expression tail")* 
end if* — if simple_expression statement 

elsif ( BYPASS( TOKEN_NOT ) ) then 
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if ( BYPASS! TOKEN_IN ) ) then 
if (RANGES) then 
return (TRUE)* 

elsif (NAME) then — check for type_mark 

return (TRUE)* 
else 

SYNTAX_ERROR( "Simple expression tail")* 
end if* — if ranges statement 

else 

SYNTAX_ERROR( "Simple expression tail")* 
end if* — if bypass ( token_ in ) statement 

elsif ( BYPASS! TOKEN.IN) ) then 
if (RANGES) then 
return (TRUE)* 

elsif 'NAME) then — cneck for type_mark 

return (TRUE)* 
else 

3YNTAX_SRR0R( "Simple expression tail")* 
end if* -- if ranges statement 

else 

return ( FALSE ) * 

end if* — if relat ional_opera tor statement 

end SIMPLE_EXPRESSION_TAIL* 



— TERM — > FACTOR iMULTIPLYING_OPERATOR FACTOR I* 
function TERM return boolean is 
begin 

if (FACTOR) then 

while ( MULTIPLYING_QPERATOR ) looo 
if not (FACTOR) then 

3YNTAX_5RROR( "Term" ) * 

end if* — if not factor statement 

end loop * 
return (TRUE)* 
else 

return (FALSE)* 

end if* — if factor statement 

end TERM* 



— FACTOR — > PRIMARY [** PRIMARY ?] 

— > abs PRIMARY 
— > not PRIMARY 

function FACTOR return boolean is 
begin 

if (PRIMARY) then 

if ( BYPASS! TOKEN_EXPONENT ) ) then 
if (PRIMARY) then 
null* 
else 

SYNT AX_E RROR ( "Factor" ) * 

end if* — if primary statement 

end if* — if bypass ( token_exponent ) statement 

return (TRUE)* 

elsif ( BYPASS( TOKEN_ABSOLUTE ) ) then 
if (PRIMARY) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Factor" ) * 

end if* — if primary(abs) statement 

elsif ( BYPASS( TOKEN_NOT ) ) then 
if (PRIMARY) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Factor" ) * 

end if* — if primary(not) statement 
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if primary statement 



else 

return ( FALSE ) * 
end if* 
end FACTOR* 



— PRIMARY — > 



numerical i teral 
null 

string_literal 
new ALLOCATOR 
NAME 

AGGREGATE 



function PRIMARY return boolean is 



begin 

if ( BYPASS! TOKEN_NUMERIC_LITERAL ) ) then 
return (TRUE!; 

alsif ( BYPASS! TOKEN_NULL)) then 
return (TRUE)* 



elsif ( 3YPAS3! TOKEN_STRING_LITERAL ) ) then 
return (TRUE)* 

elsif ( BYPASS! TOKEN_NEH ) ) then 
if (ALLOCATOR) then 
return (TRUE)* 
else 

$YNTAX_ERROR( ••Primary" ) * 

end if* — if allocator statement 

elsif (NAME) then 
return (TRUE)* 
elsif ! AGGREGATE ) then 
return ( TRUE ) * 
else 

return ( FALSE ) * 

end if* — if bypass! token_lef t_paren ) 

end PRIMARY* 



~ CONSTRAINT — > range RANGES 



--> range <> 

— > digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
--> delta FLOATING_OR_FIXED_POINT_CONSTRAINT 
— > <INOEX_CONSTRAINT 
function CONSTRAINT return boolean is 



begin 

if ( BYPASS! TOKEN_RANGE ) ) then 
if (RANGES) then 



return (TRUE)* 

elsif ( BYPASS! TOKEN_BRACKETS ) ) then — check for <> when parsing 

return (TRUE)* — an unconstrained array 

else 



SYNTAX_ERROR( ,, Constraint M ) * 

end if* — if ranges statement 

elsif ( BYPASS( TOKEN_DIGITS ) ) or else ( BYPASS( TOKEN_DELTA ) ) then 
if ( FLOATING_OR_FIXED_POINT_CONSTRAINT ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Constraint" ) * 
end if* 

elsif ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if ( INDEX.CONSTRAINT ) then 
return (TRUE)* 
else 



SYNTAX_ERROR( "Constraint" ) * 
end if* 
else 

return (FALSE)* 
end if* 

end CONSTRAINT* 
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— F LOATI NG_OR_ FIXE D_POI NT_CONSTR AI NT — > SIMPLE_EXPRESSION [range RANGES ?] 
function FLOATING_OR_FIXED_POINT_CONSTRAINT return boolean is 
begin 

if (SIMPLE_EXPRESSION) then 

if (BYPASS! TOKEN.RANGE ) ) then 
if (RANGES) then 
null * 
else 

SYNTAX_ERROR( "Float ing or fixed point constraint'* ) * 
end if* — if ranges statement 

end if* — if bypass ( token_ range ) 

return ( TRUE ) * 
else 

return ( FALSE ) * 

end if* — if s imple_express ion statement 

end FLOATING_OR_FIXED_POINT_CONSTRAINT * 



— INDEX_CONSTRAINT — > DISCRETE_RANGE [, DISCRETE_RANGE 1* ) 
function INDEX_CONSTRAINT return boolean is 
begin 

if ( DISCRETE_RANGE ) then 

while ( BYPASS( TOKEN_COMMA ) ) loop 
if not ( DISCRETE_RANGE ) then 

SYNTAX_ERROR( "Index constraint" ) * 
end if* — if not discrete_range 

end loop * 

if ( BYPASS( TOKEN_RIGHT_PAREN ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Index constraint" ) * 

end if* — if bypass ( token_r ight_paren ) 

else 

return ( FALSE ) * 

end if* — if discrete_range statement 

end INDEX_CONSTRAINT * 



— RANGES --> SIMP LE_EXPRESS ION C . .SIMPLE_EXPRESSION ?] 
function RANGES return boolean is 
begin 

if ( SIMPLE_EXPRESSION ) then 

if (BYPASS( TOKEN RANGE DOTS)) then 



if ( SIMPLE_EXPRESSION ) then 
null * 
else 

SYNTAX_ERROR( "Ranges" ) * 
end if* 
end if* 

return (TRUE)* 
else 

return ( FALSE ) * 
end if* 
end RANGES* 



— if s imple_expression statement 
— if bypass ( token_range_dots ) 



— if simple_expression statement 



— AGGREGATE — > ( COMPONENT_ASSOCIATION l, COMPONENT_ASSOCIATION ]* ) 

function AGGREGATE return boolean is 
begin 

if ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if ( COMPONENT_ASSOCI ATION ) then 

while ( BYPASS( TOKEN_COMMA ) ) loop 

if not (COMPONENT_ASSOCIATION) then 
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if not component association 



SYNTAX.ERROR! "Aggregate" ) * 
end if* 
end loop* 

if ( BYPASS! TOKEN_RIGHT.PAREN ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Aggregate" ) * 
end if* — if bypass! toKen_right_pa ren ) 

else 

SYNTAX_ERROR( "Aggregate" ) * 

end if* — if component_association statement 

else 

return ( FALSE ) * 

end if* — if bypass! toKen_lef t_paren ) 

end AGGREGATE* 



— COMPONENT.ASSOCIATION --> [CHOICE t CHOICE ]* => ?] EXPRESSION 
function COMPONENT.ASSOCIATION return boolean is 
begin 

if (CHOICE) then 

while ( BYPASS! TOKEN_BAR ) ) loop 
if not (CHOICE) then 

SYNTAX_ERROR( "Component asociation" ) * 
end if* 
end loop* 

if ( BYPASS (TOKEN. ARROW ) ) then 
if (EXPRESSION) then 
null * 
else 

SYNTAX_ERROR< "Component asociation" )* 
end if* -- if expression statement 

end if* — if bypass( token.arrow ) 

return (TRUE)* 
else 

return (FALSE)* 

end if* — if choice statement 

end COMPONENT_ASSOCI ATION * 



-- ALLOCATOR — > SUBTYPE.INDICATION t 'AGGREGATE ?1 
function ALLOCATOR return boolean is 
begin 

if (SUBTYPE.INDICATION) then 

if (BYPASS! TOKEN APOSTROPHE)) then 



if (AGGREGATE) then 
null* 
else 

SYNTAX_ERROR( "Allocator" ) * 
end if* 
end if* 

return (TRUE)* 
else 

return (FALSE)* 
end if* 

end ALLOCATOR* 



— if aggregate statement 
— if bypass ( toKen.apostrophe ) 



— if subtype.indication statement 



-- NAME — > identifier [NAME.TAIL ?] 

— — > character_literal [NAME.TAIL ?] 

— > str ing.li teral [NAME.TAIL ?] 
function NAME return boolean is 
begin 

if ( BYPASS( TOKEN.IDENTIFIER ) ) then 
if (NAME.TAIL) then 
null * 
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end if* 

return {TRUE)* 

elsif (BYPASS(TOKEN_CHARACTER_LITERAL)) then 
if (NAME_TAIL) then 
null * 
end i f * 

return (TRUE)* 

elsif ( BYPASS( TOKEN_STRING_LITERAL ) ) then 
if ( NAME_TAIL ) then 
null* 
end if* 

return (TRUE)* 
else 

return (FALSE)* 
end if* 
end NAME * 



— NAME.TAIL — > 



l LEFT_PAREN_NAME_TAIL 
•SELECTOR [NAME_TAILj* 

'AGGREGATE [ NAME_TAIL ]* 

' ATTRIBUTE_DESIGNATOR (NAME_TAIL 3* 



function NAME_TAIL return boolean is 



begin 

if ( BYPASS* TOKEN_LEFT_*AREN) ) then 
if ( LEFT_PAREN_NAME_TAIL J then 
return (TRUE)* 



else 



return (FALSE)* 

end if* -- if lef t_paren_name_tail 

elsif ( BYPASS* TOKEN.PERIOD ) ) then 
if (SELECTOR) then 

while (NAMEJTAIL) Iood 
null * 
end loop* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Name tail")* 

end if* — if selector statement 

elsif ( BYPASS( TOKEN_APOSTROPHE ) ) then 
if (AGGREGATE) then 

while (NAME_TAIL) loop 
null * 
end loop* 
return (TRUE)* 

elsif ( ATTRIBUTE_DESIGNATOR ) then 
while (NAME.TAIL) loop 
null* 
end loop* 
return (TRUE)* 
else 

SYNTAX_ERROR( "Name tail")* 

end if* --if aggregate statement 

else 

return (FALSE)* 

end if* — if bypass ( token_ lef t_pa ren ) 

end NAME_TAIL * 



— LEFT_PAREN_NAME_TAIL — > [ FORMAL_PARAMETER ?3 EXPRESSION [..EXPRESSION ?] 

[ > [ FORMAL_PARAMETER ?3 EXPRESSION [..EXPRESSION ?33* 
) [NAME_TAIL 3* 

function LEFT_PAREN_NAME_TAIL return boolean is 
begin 

if ( FORMAL_PARAMETER ) then -- check for optional formal parameter 

null* — before the actual parameter 

end if* --if formal_parameter statement 
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if (EXPRESSION) then 

if ( BYPASS( TOKEN_RANGE_DOTS ) ) then 
if not (EXPRESSION) then 



SYNTAX_ERROR( "Left paren name tail” )* 
end if* — if not expression statement 

end if* — if bypass ( token_range_dots ) 

while ( BYPASS ( TOKEN_COMMA ) ) loop 
if (FORMAL_PARAMETER) then 
null * 

end if* — if formal_parameter statement 

if not (EXPRESSION) then 

SYNTAX_ERROR( "Left paren name tail”)* 
end if* — if not expression statement 

if ( BYPASS( TGKEN_RANGc_DOTS ) ) then 
if not (EXPRESSION) then 

SYNTAX_ERRQR( "Left paren name tail”!* 
end if* — if not expression statement 

end if* — if bypass ( token_range_dots i 

end loop * 

if ( BYPASS) TOKEN_RIGHT_PAREN ) ) then 
while (NAME_TAIL) loop 
null * 
end loop * 
return (TRUE)* 
else 

return ( FALSE ) * 



end if* -- if bypass( token_r ight_paren ) 

alsif ( DISCRE7E_RANGE ) then 

if ( BYPASS) 70KEN_RIGHT_P AREN ) ) then 
wnile (NAME_TAIL) loop 
null * 
end loop* 
return (TRUE)* 
else 



SYNTAX_5RR0R( "Left paren name tail”)* 
end if* — if bypass) toKen_right_paren ) 

else 

return (FALSE)* 

end if* — if expression statement 

end LE FT_P AREN_NAME_T AI L * 



-- ATTRIBUTE_DESIGNATOR — > 



identifier [(EXPRESSION) ?] 
range [(EXPRESSION) ?] 
digits [(EXPRESSION) ?] 
delta [(EXPRESSION) ?] 



function ATTRIBUTE_DESIGNATOR return boolean is 
begin 

if ( BYPASS( TOKEN_IDENTI FIER ) ) or else ( BYPASS( TOKEN_RANGE ) ) then 
if ( BYPASS( TOKEN_LEFT_PAREN ) ) then 
if (EXPRESSION) then 

if ( BYPASS) TOKEN_RIGHT_PAREN ) ) then 



null* 



else 



SYNT AX_E RROR ( "Attribute designator" ) * 
end if* — if bypass( token_right_paren ) 

else 



statement 



SYNT AX_E RROR ( "Attribute designator" ) * 
end if* — if expression statement 

end if* — if bypas s ( token_lef t_pa ren ) statement 

return (TRUE)* 

elsif (BYPASS(TOKEN_DIGITS) ) or else ( BYPASS( TOKEN_DELTA ) ) then 
if ( BYPASS ( TOKEN_LEFT_PAREN ) ) then 
if (EXPRESSION) then 

if ( BYPASS! TOKEN_RIGHT_PAREN)) then 
null* 
else 

SYNTAX_ERROR( "Attribute designator” ) * 
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end if* — if bypass! token_right_paren ) statement 

else 

SYNTAX_ERROR( "Attribute designator" ) * 
end if * — if expression statement 

end if* — if bypass! toKen_lef t_pa ren ) statement 

return (TRUE)* 
else 

return (FALSE)* 

end if* — if bypass! token_ident if ier ) statement 

end ATTRIBUTE.DESIGNATOR* 



-- INTEGER_TYPE_OEFINITION — > range RANGES 
function INTEGER_TYPE_OEFINITION return boolean is 
begin 

if ( BYPASS! TOKEN_RANGE ) ) then 
if (RANGES) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Integer type definition")* 
end if* 
else 

return (FALSE)* 
end i f * 

end INTEGER_TYPE_OEFINITION* 



— DISCRETE _RANGE — > RANGES ( CONSTRAINT ?] 
function DISCRETc_RANGE return boolean is 
begin 

if (RANGES) then 

if (CONSTRAINT) then 
null * 

end if* — if constraint statement 

return (TRUE)* 
else 

return (FALSE)* 

end if* — if ranges statement 

end DISCRETE.RANGE* 



— EXIT_ST ATEMENT — > (NAME ?] (when EXPRESSION ?] * 
function EXIT_ST ATEMENT return boolean is 
begin 

if (NAME) then 
null * 

end if* — if name statement 

if ( BYPASS( TOKEN_WHEN ) ) then 
if (EXPRESSION) then 
null * 
else 

SYNTAX_ERROR( "Exit statement" ) * 

end if* — if expression statement 

end if* -- if bypass! token_when ) 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

return (FALSE)* 

end if* -- if bypass ( token_semi colon ) 

end EXIT_ST ATEMENT* 



— RETURN_STATEMENT — > (EXPRESSION ?] * 
function RE TURN_ STATEMENT return boolean is 
begin 
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if (EXPRESSION) then 
null * 
end if* 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

return (FALSE)* 
end if* 

end RETURN_STATEMENT * 



— GOTO.STATEMENT — > NAME * 
function GOTO_STATEMENT return boolean is 
begin 

if (NAME) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNTAX_ERROR( "Goto statement" ) * 
end if* 
else 

return ( FALSE ) * 
end if* 

end GOTO_STATEMENT * 



— if bypass! token_semicolon ) 



— if name statement 



— DELAY_STATEMENT — > SIMPLE_EXPRESSION * 
function OELAY_STATEMENT return boolean is 
begin 

if (SIMPLE^EXPRESSION) then 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return ( TRUE ) * 
else 

SYNTAX_ ERROR! "Delay statement" ) * 

end if* — if bypass ( token_semicolon ) 

else 

return ( FALSE ) * 

end if* — if simple_expression statement 

end DELAY_STATEMENT * 



— ABORT_STATEMENT — > NAME [ , NAME )* * 
function ABORT_STATEMENT return boolean is 
begin 

if (NAME) then 

while ( BYPASS! TOKEN.COMMA ) ) loop 
if not (NAME) then 

SYNT AX_E RROR ( "Abort statement" ) * 
end if* 
end loop * 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

SYNT AX_E RROR ( "Abort statement" ) * 
end if* 
else 

return (FALSE)* 
end if* 

end ABORT_STATEMENT * 



— if not name statement 



— if bypass! token_semicolon ) 



— if name statement 



-- RAISE_STATEMENT — > [NAME ?] * 
function RAISE_STATEMENT return boolean is 
begin 

if (NAME) then 
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null * 
end i f > 

if ( BYPASS! TOKEN_SEMICOLON ) ) then 
return (TRUE)* 
else 

return ( FALSE ) * 
end i f j 

end RAISE_STATEMENT \ 
end PARSER_3 * 
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*************************************************************** — 



-- TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME : 

— DATE CREATED: 

— LAST MODIFIED: 



PACKAGE PARSERS 
22 JUL 86 
04 DEC 86 



AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package contains seven functions that 

— are the lowest level productions for our top-down, 

recursive descent parser. Each function is preceded 
by the grammar proauctions they are implementing. 



— *************************************************************** — 



with 3YPASS.FUNCTI0N , 3YP ASS.SUP°ORT_FUNCTIONS , GLOBAL.PARSER , GLOBAL ) 
use 3YPASS.FUNCTI0N, 3YPASS_SUPP0RT_FUNCTI0NS , GLOBAL.? ARS6R , GLOBAL) 

package PARSER.4 is 

function MULTIPLYING.OPERATOR return boolean) 
function BINARY. ADDING.QPERATOR return boolean) 
function RELATI0NAL.QP6RAT0R return boolean) 
function ENUMERATION.TYPE. DEFINITION return boolean) 
function ENUMERATION.LITERAL return boolean) 
function FORMAL.? ARAMETER return boolean) 
function SELECTOR return boolean) 
end PARSER.4) 



package body PARSER.4 is 



— MULTIPLYING.OPERATOR — > * 

— > / 

— > mod 

— --> rem 

function MULTIPLYING.OPERATOR return boolean is 
begin 

if ( BYPASS* TOKEN. ASTERISK ) ) then 
return (TRUE)) 

elsif ( BYPASS( TOKEN.SLASH ) ) then 
return (TRUE)) 

elsif ( BYPASS( TOKEN.MOD ) ) then 
return (TRUE)) 

elsif ( BYPASS( TOKEN.REM ) ) then 
return (TRUE)) 
else 

return (FALSE)) 
end if) 

end MULTIPLYING.OPERATOR) 



— BINARY.ADDING.OPERATOR — > + 

— > & 

function BINARY.ADDING.OPERATOR return boolean is 
begin 

if ( BYPASS( TOKEN.PLUS ) ) then 
return (TRUE)) 

elsif ( BYPASS* TOKEN.MINUS ) ) then 
return (TRUE)) 

elsif ( BYPASS( TOKEN. AMPERSAND ) ) then 
return (TRUE)) 

else 
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return ( FALSE ) * 
end it V 

end BINARY_ADDING_OPERATOR* 



RELATIONAL_OPERATOR — > = 

— > /= 
— > < 
— > < = 
— > > 
— > >= 



function RELATIONAL_OPERATOR return boolean is 
begin 

if * BYPASS* TOKEN_EGUALS)) then 
return ( TRUE ) * 

els if ( BYPASS* TOKEN_NOT_EQUALS ) ) then 
return ( TRUE ) * 

elsif ( BYPASS * TOKEN_LESS_TH AN ) ) then 
return (TRUE)* 

elsif * BYPASS* TOKEN_LESS_THAN_EQUALS ) ) then 
return (TRUE)* 

elsif ( BYPASS* TOKEN_GREATER_THAN ) ) then 
return ( TRUE ) * 

elsif * BYPASS* TOKEN_GREATER_THAN_EQUALS ) ) then 
return * TRUE ) * 

else 



return (FALSE)* 
end if* 

end RELATIONAL_OPERATOR * 



— ENUMERATION_TYPE_DEFINITION — > * ENUMERATION.LITERAL 

[ 9 ENUMERATION_LITERAL 1* ) 

function ENUMERATION_TYPE_DEFINITION return boolean is 
begin 

if ( BYPASS* TOKEN_LEFT_PAREN)) then 
if * ENUMERATION_LITERAL ) then 

while * BYPASS* TOKEN.COMMAn loop 

if not * ENUMERATION_LITERAL ) then 

SYNTAX_ERROR* "Enumeration type definition")* 
end if* — if not enumeration_li teral 

end loop* 

if * BYPASS* TOKEN_RIGHT_PAREN)) then 
return * TRUE ) * 
else 

SYNTAX_ERROR( "Enumerat ion type definition")* 
end if* — if bypass* token_right_paren) 

else 

SYNTAX_ERROR* "Enumerat ion type definition")* 
end if* — if enumeration_literal statement 

else 

return (FALSE)* 

end if* -- if bypass* token_lef t_pa ren ) 

end ENUMERATION_TYPE_DEFINITION* 



— ENUMERATION_LITERAL — > identifier 

— > character_li teral 

function ENUMERATION_LITERAL return boolean is 
begin 

if * BYPASS* TOKEN_IDENTIFIER)) then 
return (TRUE)* 

elsif * BYPASS* TOKEN_CHARACTER_LITERAL ) ) then 
return (TRUE)* 
else 

return ( FALSE ) * 
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end if* 

end ENUMERATION_LITERAL * 



— FORMAL.PARAMETER — > identifier => 
function FORMAL.PARAMETER return boolean is 
begin 

LOOK_AHEAD_TOKEN := TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX + 1)* 
i f ( ADJUST_LEXEME ( LOOK_AHEAD_TOKEN . LEXEME , 

LOOK_AHE AD_TOKEN . LEXEME.SIZE - 1) = "=>" ) then 
if ( BYPASS( TOKEN.IDENTIFIER ) ) then 
if ( BYPASS( TOKEN.ARROH ) ) then 
return ( TRUE ) * 
else 

SYNT AX_ERROR ( "Formal parameter " ) \ 
end if* — if bypass ( token_arrow ) 

else 

SYNTAX_ERROR( "Formal parameter" ) * 

end if* — if bypass* token. identifier ) 

else 

return (FALSE)* 
end if* 

end FORMAL.PARAMETER* 



— SELECTOR — > identifier 

— > character_li teral 
— > string_literal 
— > all 

function SELECTOR return boolean is 
begin 

if ! BYPASS! TOKEN.IDENTI FIERI) then 
return (TRUE)* 

elsif ( BYPASS! TOKEN.CHARACTER.LITERAL ) ) then 
return (TRUE)* 

elsif ( BYPASS( TOKEN_STRING_LITERAL ) ) then 
return (TRUE)* 

elsif ( BYPASS! TOKEN_ALL ) ) then 
return (TRUE)* 
else 

return (FALSE)* 
end if* 
end SELECTOR* 

end PARSER.** 



160 



**************************************************************** — 



- TITLE: 



AN ADA SOFTWARE METRIC 



— MODULE NAME: PACKAGE SCANNER 

— DATE CREATED: 06 JUN 86 

— LAST MODIFIED: 0<+ NOV 86 



— AUTHORS: LCDR JEFFREY L. NIEDER 

LT KARL S. FAIRBANKS, JR. 



DESCRIPTION: This package reads each character from the 

input buffer, determines its token class and calls 
the appropriate procedure. 

— *************************************************************** — 

with LOW_LEVEL,SCANNER » NUMERIC, GET,NEXT,CHARACTER , GLOBAL 5 
use LOW_LEVEL,SCANNER, NUMERIC, GET_NEXT ^CHARACTER > GLOBAL > 

package SCANNER is 

procedure GET_NEXT_TOKEN( TOKEN_RECORD : in out TOKEN_RECORD_TYPE ) * 
end SCANNER * 



package body SCANNER is 



procedure GET,NEXT,TOKEN( T0KEN,REC0RD : in out TOKEN,RECORD,TYPE ) is 
begin 

LEXEME, LENGTH := It 

for I in 1 . . LINESIZE loop 

TOKEN, RECORD . LEXEME ( I ) := ' ’ * 

end loop i 

GETNEXTCHARACTERl NEXT_CHARACTER , LOOKAHEAD_ONE_CHARACTER ) \ 

if ( ( NEXT_CHARACTER in UPPER_CASE_LETTER ) or 
( NEXT_CHARACTER in LOWER_CASE_LETTER ) ) then 
T0KEN_REC0RD . TOKEN_TYPE := IDENTIFIER j 
GET_IDENTIFIER( T0KEN_REC0RD ) j 

elsif ( (NEXT_CHARACTER = ‘ ') or 

( character* pos(NEXT_CHARACTER) in FORMATORS ) ) then 
T0KEN_REC0RD . TOKEN_TYPE := SEPARATOR \ 

F LUSH_SE P ARATORS ( T0KEN_REC0RD ) \ 

elsif ( NEXT_CHARACTER in DIGITS_TYPE ) then 
TOKEN_RECORD.TOKEN_TYPE := NUMERIC_LITj 
GET_NUMERIC_LIT( TOKEN,RECORD ) \ 

elsif ( ( NEXT_CHARACTER = *-') and ( LOOKAHEAD_ONE_CHARACTER = then 

TOKEN_RECORD.TOKEN_TYPE := COMMENT * 

FLUSH_COMMENT ( T0KEN_REC0RD ) > 

elsif <NEXT_CHARACTER = ' *') then 

T0KEN_REC0RD . TOKEN_TYPE := CHARACTER_LIT * 

GET_CHARACTER_LIT ( T0KEN_REC0RD ) \ 

elsif ( (NEXT_CHARACTER = 'I') or ( NEXT_CHARACTER = • 1 ) or 
( character *pos( NEXT_CHARACTER ) in DELIMITER1 ) or 
( character ' pos( NEXT_CHARACTER ) in DELIMITER2 ) ) then 
T0KEN_REC0RD . TOKEN_TYPE := DELIMITER J 
GET_DELIMITER( T0KEN_REC0RD ) \ 

elsif ( NEXT_CHARACTER = then 

TOKEN_RECORD.TOKEN_TYPE := STRING_LIT * 

GET_STRING_LIT ( T0KEN_RE CORD U 
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elsif ( NEXT.CHARACTER = '$') then 

TQKEN.RECORD . TOKEN.TYPE := SEPARATOR \ —input was a blank line 
TOKEN.RECORD . LEXEME ( CURRENT.BUFFER.INDEX ) := ’$’> 

NEXT_BUFFER_INDEX := REFILL.BUFFER.INDEX* 

elsif ( character ’pos( NEXT.CHARACTER ) = 0) then — first character is null 

TOKEN_RECORD.TOKEN.TYPE := SEPARATOR \ 

NEXT.BUFFER.INDEX := RE FILL.BUFFER.INDEX \ —force buffer to refill 

else 

— first character read is not one of the legal characters 
T0KEN_REC0RD.T0KEN.TYPE := ILLEGAL j 
ERRQR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) V 
end if* 

token value is an integer which corresponds to the token type’s 
— position in the token list 

TOKEN.RECORD . TOKEN.VALUE : = TOKEN ' pos( TOKEN.RECORD . TOKEN.TYPE ) \ 
TOKEN_RECORD.LEXEME.SIZE := LEXEME_LENGTH v 
end GET.NEXT.TOKEN \ 

end SCANNER v 
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